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EPPS ESELSSES SES SS CSS SS SS CSS SAL Se: 
WESTERN PERIPHERALS * 
MAGNETIC TAPE DIAGNOSTIC ¥ 
LISTING NO, AL12009 * 
PESSSeSL ES SSE SSES LSC SL SSL SSALSeS SS 


2e¢ at we oe oe 


3 PLEASE REAQ 
H KKEKFEKEKESE 

; THIS DIAGNOSTIC PROGRAM IS PROVIDED 

: TO FIND CATASTROPHIC FAILURES THAT ARE 
; RELATED TO BASIC UPERATIONS OF THE 

3 TAPE CONTROL. THE RELIABILITY PRO-} 

; GRAM IS PROVIDE) 4S A STRIGENT 

H TEST TO SHOW UP INTERMITTENT ANG 

: PATTERN SENSITIVE PROBLEMS, 

; FOR THE MCST PART THE DIAGNOSTIC 

: ASSUMES THE MAGNETIC TAPE “EDIA 

: IS PERFECT ANO VOT THE CAUSE CF AN 

; ERROR. HOWEVER, IF PARITY ERKGRS 

: OCCUR WHILE RUNVING THE DIAGNOSTIC 

; THE TAPE SHOULD ALWAYS BE SUSPECT! 

3 = ome ae . 

: 

3 

; 

; 


uy See oe = eae 


REKEKX 

KEKKEKS 
MAGNETIC TAPE CIAGNOSTIC 
PLACE ALL TAPE JNITS OFF LINE EXCEPT 
ONE, FOR A COMPLETE TEST OF THE 
INTERFACE MAKE SUCCESSIVE RUNS CF EACH: 
7 TRACK, 9 TRACK, B00KPI, 556 BPI, PE 
2. STARTING LOCATIONS 
400 BASIC DIAGNSSTIC PLUS FOLLOWING 3 ROUTINES? 
401 WRITE LOCK TEST ONLY 
402 END TAPE TEST ONLY 
403 DATA LATE TEST ONLY 
3. SWITCH SETTINGS 
13215 UNIT #0-7 
10-12 CEVICE CODE, 2 OR 6 


ea @8 
- 
® 


es ee 26 se 


9 7TRK=0 YTRK=L 
8 LO DENS=0 HAY DENS=L(7TRK)« PE=] 1 NRZ=1(°9TRK) 
7 NRZ=0 PESi 
6 TEST WRL» TE, & EQT=0 BYPASS WRLe TEe & EQT=1 
5 6°6 PACKING 7TRK=0 6694 PACKING 7TRK=1 
2 PRINT FAILURE RATE 
1 INHIBIT PRINTING 
G FROM ERROR» SO TO NEXT TEST 
+ PROCEDURE 
4o1 BASIC OIAGNOSTIc 


LOAD TAPE. PUSH FORWARD TO POSITICN AT BOT. 
LOAD PROGRAM wlTH BINARY LGADER AND START AT 
PROPER LOCATION FOR THE TeST TO BE RUN. ALL 
TESTS SHOULD 6% RUN FCR A COMPLETE CHECK. iF 
A HALT OCCURS CONSULT TRE PROGRAM LISTING 


a0 @e 20 26 &P 26 26 Bt 2H wi Be BO Gt B46 Bt 23 GO 23 Be OF St ae we 


NOTE - CASTRIOGE TAPE DRIVES- SWITCH & ON 
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FOR DIRECTIONS. 
IMMEDIATELY AFTER STARTING A HALT wILL OCCUR 
TO ALLOW THE SWITCH REGISTER TO BE SET FOR 
PROPER UNIT SELECT, CONTROL, ETCee, 
AFTER SETTING SwITCHES PUSH CONTINUE. 
EACH TEST MAY CONTAIN SEVERAL CHECK POINTS 
WHERE AN ERROR 4ALT CAN OCCUR, GENERALLY 
SPEAKING, ERRORS MAY KE EXPECTED AT CHECK 
PGINTS FURTHER 3N WHEN ONE ERROR IS FOUND. 
IF A MALFUNCTION IS DETECTED THE PROGKAM WILL 
HALT AND AC3Z WILL CONTAIN THE LOCATION OF 
THE ERROR+1. CONSULT THE LISTING AND EXAMINE 
OTHER PERTINENT ACCUMULATORS. IF SwITCHES 
081 ARE DOWN, PRESSING CONTINUE WILL CAUSE A 
PRINTOUT OF THE ERRUR LOCATION AND A SCOPE 
LOOP WILL SE ENTERED, WHILE IN THE SCOPE LOOP 
SETTING SWITCH 2 WILL CAUSE THE FAILURE RATE 
(IN%) TO BE PRIVTED. SETTING SWITCH O WILL 
CAUSE THE PROGKA™ TO GO ON TU THE NEXT TEST. 
EACH SUCCESSIVE TEST ASSUMES THAT ALL PREVIOUS 
TESTS WORK CORRECTLY, @YPASSING A FAILING TEST 
AND PROCEEDING 9N MAY LEAD TO CONFUSING 
SITUATIONS.» 
WHEN A TYPEOUT REQUEST IT: REMOVE THE 
WRITE-ENABLE KIVG! OUN'T STOP THE PROGRAM! 
REMOUNT TAPE AN) PUT UNIT BACK ON-LINE, 
WHEN REQUESTED: REPLACE RING THE SAME WAY, 
WPITE LOCK TEST 
WHEN A TYPEOUT 2EGUESTS IT, REMOVE WRITE ENABLE RI 
DON'T STOP THE 2ROGRAM. REMCUNT TAPE 
AND PUT UNIT BAtK ON LINE, AN ATTEMPT IS 
MADE TO WRITE+ ANG STATUS IS THEN CHECKED, 
EXPECTED STATUS IS 110205: 
ERROR 
ILLEGAL 
BOT 
WRITE LOCK 
/ TUR 
IF THIS STATUS IS FCUND 
THE TEST IS REPEATEO, IF THE 
ABOVE STATUS IS NOT FOUND AN ERROR HALT 
OCCURS. AC1=EXPECTED STATUS 
ACO=ACTUAL STATUS 
PUSH CONTINUE TQ REPEAT TEST. 
END TAPE TEST 
WK RECORDS ARE wRITTEN DOWN 
THE LENGTH OF THE TAPE. WHEN END TAPE STATUS 
“IS DETECTED “END TAPE" IS PRINTED AND PROGRAM 
HALTS, PUSHING CONTINUE wILlL CAUSE THE 
PROGRAM T9 GO Oy, 
IF END TAPE IS VOT FOUND STATUS IS CHECKED FOR 
DATA LATE 
REWINOING 
ILLEGAL 
EOF 


_ 
r 
Nm 


oo SO 28 68 CSO CO B24 BO @e BE BE Bh BE GE GO CE BE BE SE GE BE Ge BO OO 65 SH BF BH BO DE DE we BE GE Be GE Ge SE B25 BO 2 Dt BF BO Ob 28 BO BE Bt B26 GO BE G6 2S wo 
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o0000c 
Oo0ci 
60002 
00003 


00026 
o0c0g2i 
o0g22 
00025 
00024 


00045 


00050 
00051 
00052 
00053 
OGO0S4 


00055 
GO00S6 
0090057 
00060 
o0c06é1 
00062 
00063 
00064 
000E5 


00066 
00067 
00070 
00071 
00072 


00073 
00074 


900000 
090000 
900002 
910000 
002009 
000020 
0099900 
906000 
969000 
900000 
gg0co0G 
060045 
900050 
000050 
500000 
5690000 
900000 
200000 
030900 


Gco4ll 
004333 
065404 
005041 
ODS24)1 
105441 
OO07491 
000000 
000090 
O0bGLle 
001750 
011610 
000062 
000310 
000620 
000010 
Gocg0l 
Q000G2 


Be we 26 26 Se ee @e 24 ws w8 ©O8 a8 
® 


@2e ae @¢ 20 we 


TOXOs 
IOX1: 
I0x23 
IOx3: 
TOX4s 


EGGS: 


FIRST: 
CEND: 
CMTAS 
OSUFE: 
IBUFF s 
PPCHNs 
PCHINS 
SAVEds 
SAVELs 
aRUxX 
e1iSEC: 
eSSECs 
2SGMS> 
e2e00Msé 
etaQMss 
eRUX 
Ci; 
C2: . 
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BOT 

BAD TAPE 

WRITE LOCK 
IF ANY OF THESE IS FOUND THE STaTus IS PRENTEC 
AND WRITING CONTINUES, 
DATA LATE TEST 
FOLLOWING START THE TAPE IS REwOUND. 
RECCRD IS THEN aARITTEN AND THE CaATa LATE STaTuS 
CHECKED, IF IT IS NOT FOUND, "NO DATA LATE BIT" 
IS PRINTEDe THE TEST THEN REPEATS, 
SOME PROCESSORS aRt INCAPABLE GF FORCING a 
"DATA*LATE" wli4OUr OPERATOR INTERVENTION, 
TO CAUSE A DATA LATE STATUS TY GCCUR,. STOP THE 
PROGRAM DURING A &RITE OPERATION, THEN PUSH 
CONTINUE. THE LONG RECORD LENGTH pALLOwS PLENTY 
OF TIME TO INSURE THE PROGKAM STOP OCCUKS UURING 
DATA CHANNEL TRANSFERS. 


ONE 4k 


»LOC Q 

0 3STORE PC ON INTERRUPT 
2 3GO TO +1 

ISZ 0 s; INTERRUPT RETURN WITH SKIP 
JMP @0 

eLOC 20 

0 sAUTO INDEX REGISTERS 
0 

0 

0 

Q 

eLOC 45 

EGGS 

«LOC 50 

0 SHEN FLAG 


#) ;DEVICE COLE 
0 ASR 37 FLAG 
0 PASS COUNTER 
0 :SWITCH SETTINGS 
+CONSTANTS 

Ad 

ENDPRG 

DIB 1-40 

LAST 

LAST+200 

a@lLAST+406 

LAST+2400 

0 

0 

10 

1006 

5060 

S6 

2690 

490 

3 

l 

2 


00075 
00076 
00077 
00100 
00101 
00102 
00103 
60104 
00105 
00106 
00107 
00110 
QO0111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
0012: 
00122 
00125 
00124 
00125 
00126 
00127 
001350 
00151 
00152 
00133 
00154 
00135 
00136 
00157 
G0140 
00141 
o01i42 
00143 
00144 
C0145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 


* 00155 


00156 
00157 
00160 
GO0161 
09162 
00163 


000003 
o00d00% 
0vu0d005 
0008907 
000010 
090620 
000022 
000030 
000040 
0c0050 
0G0090 
000070 
Cocc77 
00e1030 
009103 
00154 
000144 
00C1i50 
C56200 
G90375 
090377 
000400 
901090 
062000 
002100 
920000 
100401 
004000 
0977086 
O37477 
004104 
640000 
805676 
176000 
000764 
2190421 
021042 
042104 
004210 
d00201 
Ccd000 
160077 
004332 
17779090 
1190006 
125252 
052525 
002010 
05164%2 
100000 
177776 
177775 
177774 
177773 
177754 


C3% 

C43 

C53 

Cis 
Clos 
C203: 
C22: 
C303: 
C403 
CSo: 
C60; 
C7038 
CrTzT: 
Cico: 
C1033 
C1c04%3 
C1448 
C1503 
C2003 
C3755 
C3773 
C4003 
C1000: 
c2coo: 
C21u0cC° 
C20Ks 
Cigo0%s 
C4&K 3 
C77005 
C374773 
C4io4s 
C4nngus 
D3c00: 
M20008 
b5a00$ 
C1ig42is 
C2104e28 
C421043 
C4#eiTs 
C2cl1; 
RECTR: 


Ci60077: 


PCOCM: 


C177700: 
C1i1000C: 
C1252523 


CcS25255 
C2016: 
C5154%38 
cim: 
M23 

MS; 

M43 

fos 
M2023 


100 
103 
104 
144 
150 
200 
375 
377 
400 
1000 
2coo 
2100 
20000 
190401 
4000 
7700 
37477 
4104 
$0000 
56790 
=2000 
764 
10421 
21042 
42104 
4210 
201 

0 


cOCcM 


52525 
2010 
51642 
100000 
-2 

-3 

“4 

<5 

~24 


73000. 


3500, 


166077 


277706 
120000 
125252 


PAGE 
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00164 177770 M8: -10 
00165 177700 M1003; -100 
00166 177160 M&cd: ~629 3-400. 


00167 177000 M10d002 -1000 
00170 177776 4SKTO: L7777§ 
00171 0001344 CL1IGoO* 144 
00172 070544 C7064%4%: 70644 
sPATTERN TABLE+ ODD PARITY WRITES 
00173 000173 POINT: ° 


00174 090000 C 
00175 177400 177400 
00176 000377 — 377 
00177 125252 125252 
00200 652525 32529 
00201 000200 LST: onl 
| tPATTERN TABLE® EVEN PARITY WRITES 

00202 000292 PONTP: , 
00203 14125253 125253 
00204 052525 052525 
00205 002021 002021 
00206 020650 020050 
00207 00C206 LSTié eol 

. tVARIABLES 
00216 000000 x70 0 
Q0211 c00010 C1ix: 10 sUNIT # +10 
Od2i2 8OC000 CX; 0 sUNIT # 
00213 000050 C5xX: 30 sUNIT # +56 
00214 d0°960 CCSXx: 0 sUNIT # +50 


00215 Gu0000 CTR: 9 ;COUNTER 

00216 I177z20 DILLY? 0 se(# ITR INC=#uMP LOOP IN 1 

00217 SC0C00 WDCNT? oO sTEMP STORAGE 

00220 200000 INST: 0 ;TEMP STORAGE 

GO221 0UG000 UEVICE: a DEVICE CODE. 22 OF 62 

00222 C00000 SwTSv: 9 SWITCHES 

00223 000000 ITLP: 0 tITERATIONS ASTER LP. 
INDIRECT ADURESSES | 

00224 001231 IA28: A28 

00225 001645 IA39: A39 

00226 002220 IA46: A46 

00227 092373 IAG9i2 A491 

00230 0G2375 IA&92% A49,2 

00231 002433 IASO: ASO 

90232 093016 IA55S3: AS 

00233 C0399 ABTOF: BTOF 

00234 005004 ICRKLF3 CRLF 

00235 003632 ICHST3 CSTAT 

00236 004516 LOOP: CYCLE 

00237 003262 PDILL? UILLI 

00240 004631 PODIVO OIVID 

00241 003772 PDLTAS OLTA 

00242 004466 SETUP? ENTER 

00243 064463 SETPL! ENTER<3 

00244 004566 ER: ERR 

00245 094107 PETTAs ETTA 

00246 0623977 AHALT! HALT 7PUT PC IN AC3 TO KEEP 


00247 
00250 
go0251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 


003163 
094150 
004657 
003656 
004700 
004322 
005404 
005307 
003342 
003621 
S03453 
063431 
o00351u 
083505 
003366 
003371 
003476 
603557 
003701 
9042350 
094256 
004273 
003413 
093553 
093556 
QU3E61 
001400 
7442 


000022 
006271 
G06260 
006277 
006261 
006275 
G06255 
006265 
006266 
006276 
006300 
006270 
006244 
0062563 
006264 
006257 
006256 
006262 
004246 
006267 
006272 
006273 
006274 
006254 
000400 


060409 092404 


INTIL: 
PINWLS: 
IMESSs 
ONLOC: 
IPocT; 
IBPPEs 
IBSP$ 
ICHKs: 
ICLR? 
IERAS® 
IGENS 
ILCs 
TROe 
IRONS: 
LRWOs 
IRwS: 
ISELS 
ISFCS 
ISTAT: 
ITIM: 
ITMOS 
ITPNS 


IWEOF: 


IWNS S$ 
IWRT: 
IWT: 


WCPST:: 


oMTA=22 


INITIAL 
INWLT 
MESS 
ON+2 
POCT 
XBPPE 
XBSP 
XCHK 
XCLR 
XERAS 
XGEN 
XLO 
XRO 
XRONS 
XRwWO 
XRwS 
XSEL 
XSPC 
XSTAT 
XTIM 
XTMD 
XTPN 
XWEOF 


WOPR oS 
sDEFINATIONS 


STATUS=JSR AISTAT 
ERASE=JSR aG@IERAS 
WRITE=JSR aIWRT 
GEN=JSR aIGEN 
wECF=YSR aIWwEOF 
BSPACE=JSR aGIBSP 
REwWINO=USR aIRWO 
RWOSTALL=JUSR aIRwS 
WRTNS=JSR aIWNS 
WAIT=YSR alIwt 
SPACE=JSR aISPC 
EHALT=JSR @ER 
READ=JSR aIRD 
REGNS=JSR aIRONS 
CLEAR=JSR GICLR 
CHECK=JSR aAICHK 
LOLD=JSR aILO 
ERHLT=JSR AHALT 
SELECT=JSR @ISEL 
TIME=YSR AITIM 
TMCONE=JSR alTMO 
TESTPE=USR AITPN 
BYPASSPE=JUSR adISPPE 


eLoc 400 


JMP @IDIAG 


_ sCONSISTANT WITH ERROR 


3MTA OIAGNOSTIC 


PAGE 
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00401 002404 JUMP OIWLT tWRITE LOCK TEST 
00402 co24C4 JMP @IETT sENU TAPE TEST 
00403 002404 JMP aIDLT sDATA LATE TEST 
00404 040410 IDIAG? DIAG 
00405 004136 IwLT: wT 
00406 GO4074 IETT: ETT 
00407 003760 ICLT: OLT 
| $CHECK SELB BUS LINE 
000410 .LCC 410 
00410 006247 O©AaS: JSR AINTIL 
00411 006242 Ad: JSR aSETUP 300 SKP82_. DEVICE o 
00412 063560 SKPBZ 0 
00413 095244 EHALT $CHECK THE SELB BUS LINE 
00414 006236 JSR aLooP 
;CHECK SELD BUS LINE 
00415 cOoSs242 Al: JSR aSETUP 300 SKPDZ, DEVICE 9 
00416 063709 SKPDZ 0 
00417 695244 EHALT ;CHECK SELD BUS LINE 
00420 0096236 JSR aLOOP 
$;CHECK MTA BUSY FLOP OFF 
00421 006242 Aa: JSR @SETUP 300 BUSY TEST ON 
00422 963522 SKPBZ «MTA iMTA 
00423 005244 EHALT tCANNOT RESET MT BUSY 
00424 006236 JSR aLooP 
3CHECK MTA DONE FLOP OFF 
00425 006242 A3: JSR aSETUP ;CONE TEST ON MTA 
00426 063722 SKPDZ MTA 
00427 206244 EHALT sCANNOT RESET MT DONE 
00439 006236 JSR alooP 
SCHECK MT SELECT+OOR+DIB+ADDR REG. IN-OUT 
00431 006242 A4: JSR aSETUP sLOAD CA WITH 125252 
00432 020152 LDA 0.C125252 ;kEAD BACK AND CHECK 
00433 062022 DOB O+.MTA 
00434 065422 OIB 1le.MTA 
00435 11120 MOVZL 040 
C0436 101220 MOVZR 040 
00437 106414 SUBH 041,SZR 
00440 006244 EHALT SACO=VALUE SENT TO ADDR REG 
SAC1=VALUE READ BACK 
3;CHECK THE MT SELECTe LOAD AOOR 
:ENABLE ACOR+ ANO ACOR REG, 
00441 006236 JSR ALOOP 
}CHECK CA REGISTER IN-OUT 
00442 006242 AS: JSR aSETuUP tLOAD CA WITH 052525 
00443 020153 LOA 0+C52525 ;REAO BACK AND CHECK 
00444 062022 O08 Ov.MTA 
00445 065422 GIB 1+.MTA 
00446 106414 SUBH 041+52ZR 
00447 006244 EHALT ;ACO=VALUE SENT TO ADOR REG 
sACLI=VALUE READ BACK 
gsCHECK ADDR REG DaTA PATHS 
00450 006236 JSR aLooP 
sCHECK FOR ILLESAL MT SELECT 
99451 020057 Aé: LDA O+CMTA ;LOAD CA wITH 052525 
00452 040464 STA 0+46.2 3READ BACK USING EVERY 


00453 
00454 
00455 
00456 
00457 
00460 


00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
00471 
00472 
00473 


00474 
00475 
00476 
00477 
00500 
00501 


005902 
00503 
00504 
00505 
00506 


90507 
00510 
00511 
00512 
00513 
00514 
00515 


00516 


00517 
80520 
00521 
00522 
90523 
00524 
60525 
00526 


006242 
020155 
062022 
065400 
122415 
006244 


006236 
020774 
1061499 
O24111 
107465 
000406 
C30221 
146415 
eco772 
040764 
000760 


102400 
006243 
C62022 
065422 
196414 
006244 


006236 
191400 
126620 
122414 
OUU767 


396242. 


102000 
062022 
062677 
065422 
125004 
006244 


006236 


006242 
102400 
024140 
066022 
062022 
061422 
191064 


005264 — 


A6.1: 


A6.2: 


AG.53 


ABs 


ABA: 


JSR ASETUP 
LOA 04C52525 
DOE Oe MTA 
DIB 1,0 

SUBH 1+0¢SNR 
EHALT 


JSR 
LDA 
INC 


aLOOP 
0+A6.2 
0+0 

LDA 1.C77 
AND Q21+SNR 
JMP A7 

LDA 2-eDEVICE 
SUBH 2e1¢SNR 
JMP AG,3 

STA 0.A6,.2. 
JMP A6.1 


{CHECK CA REGISTER, 


SUB 0.20 

JSR @SETPI 
DOB OeeMTA 
oIB 1e MTA 
SUBH 0+1+¢SZR 
eHALT 


JSR aALOOP 
INC 0O-C 
SUBZR lel 
SUB# 140¢SZR 
JMP A741 
s;CHECK TO RESET 
JSR aSETUP 
ADC 0-0 

0O0B OeeMTA 
IORST 

OIB le eMTA 
MOV 1¢1+SZR 
EHALT 


JSR @ALOOP 
s;CHECK CA LOAD 
JSR @ASETUP 

SUB 0-0 

LDA 1.C1042i1 
BOB 1lsaMTA 

DOB O«eMTA 

DIB O+«.MTA 

MOV 0+0+SZR 
HALT 


PAGE 
DEVICE CODE EXCEFT MTA 


: 
3;D0ATA SHOULD NOT SE 
;: PROG 


sACOSOATA SENT TO ACOR REG 
sAC1=OATA READ BACK 
sPROBLEM IS IN MT SELECT 
THE DEVICE SELECT GATE. 


;DONe ALL GO ON 


<MTA, INC AGAIN 


ALL DATA PATTERNS 
sLOAD CA, READ BACK 
3ANO CHECK, USE 

sALL FROM 0-077777 


tACOSDATA SENT TO ADOR REG 
sACI=DATA REAG BACK 
tADOR REG IS PATTERN SENSITIVE 


OF CA REGISTER 

sLOAD CA WITH ALL 1°S 
300 IORSTe READ 

CA AND CHECK FOR ofS 


sACO=DATA SENT TO ADDR REG 
sACLSLATA READ BACK 

sCHECK IORSTe RESET. AND 
sADORESS REGISTER RESET GATES 


;LOAD CA WITH 010401 
tLOAD CA WITH ALL ZEROS 
;READ AND CHECK 


3CA LOACING ERROR 


00527 
00530 
00531 
005352 
00533 
00534 
09535 
00536 
00537 


00540 
00541 
00542 
00543 
00544 
00545 
00546 
00547 
00550 


00551 
00552 
00553 
00554 
00555 
00556 
00557 
00560 
00561 


00562 


00563 
00564 
00565 
00566 
90567 
00570 
00571 
00572 
00573 
00574 
90575 
00576 


00577 


00600 
00601 


$06236 
006242 
102400 
024141 
065022 
062022 
061422 
101004 
006244 


006236 
096242 
102400 
024142 
066022 
062022 
061422 
101004 
006244 


006236 
0905242 
1d24c9 
024143 
666022 
GE2022 
061422 
1yu2004 
006244 


006236 


006242 
020140 
024141 
030342 
054143 
062022 
066022 
072022 
076622 
061422 
162414 
006244 


006236 


006242 
006267 


A&B: 


A@6CS 


A8C? 


ABE S$ 


Ags 


JSR 
JSR 
SUB 
LDA 
008 
DOB 
O16 
MOV 


@aLCOP 
aSETUP 
0-0 


1,C2io%e2 


1,,MTA 
OveMTA 
Oe aMTA 


0+0eSZR 


ERALT 


JSR 
JSR 
SUB 
LOA 
DOB 
DOB 
O18 
MOV 


aLOOP 
aSETUP 
G0 


1,C42104 


1..MTA 
Og eMTA 
OeeMTA 
0+0sSZR 


EHALT 


- 


JSR 
JSR 
SUB 
LOA 
006 
006 
018 
MOV 


@LOOP 
aSETuP 


0.0 

1,C#21T 
1,..MTA 
0+.MTA 
Oe eMTA 
0e9eSZR 


EHALT 


JSR 


JSR 
LDA 
LOA 
LOA 
LDA 
208 
O68 
008 
DOB 
DIS 


SUBHR 360¢SZR 


alLooPp 
s;CHECK CA LOAD 
aSETUP 
0.C10421 
1,C21042 
2,C42104 


3eC421T 
OweMTA 


Lee MTA 
2eeMTA 


3eeMTA 
OeeMTA 


EHALT 


JSR 


sCHECK MT START 


JSR 


aLOOP 


aSETUP 


SELECT 


PAGE 
sACO=(CA) 
2(CA) SHOULD BE ZERO 


sLOAD CA WITH 21042 
sLOAD CA WITH ALL ZERGS 
{READ AND CHECK 


3CA LOADING ERROR 
sACO=(CA) 
$(CA) SHOULD BE ZERO 


;LOAD CA WITH 42104 
sLOAD CA wITH ALL ZEROS 


3CA LOADING ERROR 
gACO=(CA) 
(CA) SHOULG BE ZERO 


sLOAD CA WITH 4210 
3LCAD CA WITH ALL ZEROS 
s;READ AND CHECK 


sCA LOADING ERROR 
sACO=(CA) 
$(CA) SHOULD BE ZERO 


3CA LOADING ERROR 
sACG=(CA) 
$¢(CA) SHOULD BE 904210 


ANO BUSY FLOP 
3SENO START PULSE 


00602 
00663 
00604 


00605 


00606 
00607 
00610 
00611 


00612 


00613 
00614 
00615 


00616 


00617 
00620 
00621 
00622 


00623 


00624 
00625 
00626 


00627 


00630 
00631 
00632 
00633 
00634 
006355 


00656 
00637 
00640 
00641 


00642 
00643 
00644 
00645 
00646 
00647 


050122 
G63422 
006244 


006236 


006242 
006267 
060122 
063422 


OG6244 


0624677 
063522 
906244 


006236 


006242 
006267 
060122 
063422 


006244 


960222 
063522 
C06244 


006236 


006242 
006257 
O202il 
061122 
063522 
006244 


006236 
062677 
006309 
000070 


006245 
006267 
006266 
006271 
190203 
006244 


AlQ: 


All: 


Al2:; 


Als: 
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NICS MTA ;SAIP Gr BUSY SET 

SKPBN MTA 

EHALT MT START CIO NOT SET BUSY 
sCHECK MT START, MT BUSY FLOP 
tAND SET LINE 

JSR @LOOP 

s;CHECK IORST OF BUSY FLOP (CLEAR COM) 

JSR aSETUP sSENG START PULSE 

SELECT 

NIOS ,MTA sMAKE SURE SUSY IS ON 

SKPBN .MTA 300 ITORST ANNO 
sMAKE SURE BUSY OFF. 

EWALT sSTART PULSE DION'T SET BUSY 
sTHIS JUST WORKED IN THE 
sPREVIOUS TEST! 

IORST 

SKPBZ MTA 

EHALT s;IORST CION*T RESET BUSY 
s;CHECK CLEAR COM AND 
3MT BUSY RESET LINE 

JSR @aLOOP 

s;CHECK CLEAR PULSE 

JSR aSETUP sSEND START PULSE 

SELECT 

NIOS MTA +MAKE SURE BUSY [S ON 

SKPBN .MTA +SENO CLEAR PULSE 
s;MAKE SURE BUSY RESETS 

EHALT 3MT START DION*T SET MT BUSY 
sTHIS HAS WORKED TwICE BEFORE! 

NIOC MTA 

SKPB2Z MTA 

EHALT MT CLR OION*T RESET BUSY 
;CHECK MT CLR THRU CLEAR COM 

JSR ALOOP 


$CHECK DOA=MTLC-COMMAND DECODES 


JSR aASETUP ;SELECT REWIND 

SELECT a 

LOA 0+C1x :SENO START PULSE 

DOAS O+.MTA 3MAKE SURE BUSY DEWSN®T SET 

SKPBZ MTA 

EHALT sCHECK GATE ORIVING THE 
sMY BUSY SET LINE. REWIND IS ON 
tANO MY START IS SETTING BUSY. 
sCHECK COMMAND DECODER. 

JSR a@lLCOP 

IORST 

WAIT 

250MS 


s;CHECK DIA AND STATUS REGISTER AT BOT 
JSR aASETPL sREWINO TAPE 


SELECT 

RWOSTALL swAIT 5 SEC. 

STATUS sREAO ANO CHECK STATUS 

100201 

EHALT sACISEXPSECTED STATUS. ACO=BAO0. 


00650 


00651 
00652 
00653 
06654 
00655 
00656 
00657 


00660 
00661 
00662 
00663 
00664 
00665 


09666 
00667 
00670 
00671 
00672 
00673 
00674 


00675. 
00676 
00677 
00700 


00701 


00702 
00703 
00704 
00705 
00706 
00707 
00710 
00713 
oo712 
00715 
00714 


00715 


006236 


020110 
040216 
006242 
020219 
061022 
006235 
006244 


OC6236 
010210 
020210 
O24ile 
422414 
G90767 


006243 
006266 
006260 
006274 
C0s271 
900001 
906244 


006266 
CC06271 
100201 
006244 


906236 


006243 
906260 
CG06265 
O3S0164 
050215 
010215 
009777 
024125 
060422 
123405 
006244 


005266 


A143 


A14,18 


A153 


Als: 


JSR @LOOGP 


;CRECK UNIT SELE 


LDA 
STA 
JSR 
LDA 


0,C70 
0X70 
ASE TUP 
04X70 
DOA 0,,.¢MTA 
JSR AICHST 
EHALT 


JSR aLOOP 
ISZ X70 

LDA 04X70 
LDA 1,C100 
SUB#H 1:+0,.SZR 
JMP A14S,1 
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sTHIS IS THE FIRST READ STATUS, 
3;CHECK RD STATUS. REWIND TRRU TO 
:TAPEs ANO BOT LINE FORM TAPE, 
sALSG BOT STATUS REG. GATE 


CT LOGIC, ERASE COMMAND DECODE 
;SELECT EACH UNIT 

;IN SEQUENCE 0-7 

3CHECK FOR TUR IF 

sUNIT IS SELECTED, 

2OTHERWISE CHECK FOR 

sNO TUR, 

sACL=EXPECTED STATUS» ACO=BAD 
3AC2 13*°15=UNIT UYUST TESTED 
;IF UNIT TESTEDSUNIT SELECTED 
s;PROCEED ON THE STATUS INFO, 
;IF NOT CHECK FOR ERRONEOUS TUR, 


sCHECK REWIND@ERASE“REWIND SEQUENCE 


JSR @ASETP1 
RWOSTALL 
ERASE 
TESTPE 
STATUS 

1 

EHALT 


RWOSTALL 
STATUS 
100201 
EHALT 


JSR ALOOP 
sCHECK REWINDING 
JSR ASETP1 
ERASE 
REWINO 

LOA 2eM8 
STA 2+4CTR 
CTR 

enl 
1+«C20K 
Oe eMTA 
1,50«SNR 
EHALT 


RWDOSTALL 


tREWIND WAIT 5 SEC. 
sERASE WAIT 1 SEC, 
tCHECK STATUS (TUR) 


tREWIND*CHK STATUS 


sACL=SEXPECTED STATUS» ACO=8AD IF 
$(BOT)+ ERASE OION,T MOVE TAPE, 
;CHECK COMMAND THRU TO TAPE, 


tACL=EXPECTED STATUS» ACO=O0AD, 
REWIND FOLLOWING ERASE DION?T 
WORK. THE CLUE IS IN THE BAD 
TSTATUS. 


STATUS SIT 

350 ERASE-REWIND 
s;CHECK STATUS 
sOURING REWIND 
,OELAY 8 CYCLES 


sACLTSEXFECTED STATUS». ACOQ=BAD 
SCHECK REWINOING STATUS BIT GATE 


00716 


00717 
00720 
00721 
00722 
00723 
00724 
60725 


00726 
00727 
00730 


00731 
00732 
00733 
00734 
00735 


00736 
00737 
00746 


00741 
00742 
007435 
00744 
090745 
O074E 
00747 
00750 


00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 


00762 
00763 
00764 


00765 
00766 
00767 


936236 


006243 
006266 
006276 
000192 
006271 
100220 
0656244 


006273 
002000 
006226 


006243 
006266 
906260 
006276 
000102 


006271 
900020 
006244 


152620 
050215 
006271 
600020 
CO04C4 
010215 
000774 
006244 


1525629 
050215 
030101 
060%22 
143494 
000404 
949215 
00C774% 
006244 


006273 
090%00 
006236 


006242 
006261 
025052 


A17: 


2000 


oe 


A18&.1: 


Al18,25 
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JSR ALOOP 

sCHECK SEND CLOCK STATUS SIT 

JSR ASETPL TREWYNOMWRITE 

RWOSTALL sCHECK STATUSe SHOULD 

WRITNS ;GET SEND CLOCK FROM 

102 swRITE START DELAY, 

STATUS 

160220 

EHALT sACI=EXPECTED STATUSe ACO=8AC 
,;CHECK WRITE «START OLY AND 
sSTATUS REG, GATE, 

TMDONE 

JSR aALOOP 

3CHECK 1ST CHAR, STATUS 

JSR ASETPi sREWINOD-ERASE@WRITE 

RWOSTALL 

ERASE 

WRINS sWATCH SEND CLOCK ON, 

102 3THEN OFF. THEN WATCH 
sFOR 1ST CHAR 

STATUS 

29 

EHALT sACLI=SEXPECTED STATUS+ ACO=3AD 
sLOOKING FOR SEND CLOCK, 
tTHIS MUCH WORKED IN THE 
sPFREVIOUS TEST 

SUBZR 2:2 

STA 2eCTR 

STATUS 

20 

JMP +4 :STATUS JUST CHANGED 

ISZ CTR 

JMP A18,1 

EHALT :SENO CLOCK ON TOO LONG, 
3CHECK WRITE START CELAY 
sAT BOT. 

SUBZR 2e2 

STA 2eCTR 

LOA 2+C10 

DIA O»4,MTA 

ANDO 2¢0+SZR 

JMP 444 

ISZ CTR 

JMP A18.2 

EHALT ;FIME OUT WAITING FOR 1ST CHAR, 
sCHECK 1ST CHAR FF THRU TO 
:THE STATUS GATE. 

TMOONE 

400 

JSR aALOOP 

sCHECK FIRST SATA CHANNEL OUTPUT 

JSR ASETUP iWRITE 2wO 

SEN wwWOS=25052 EACH 

25052 ZREAG DATA REG, 


00770 
00771 


00772 
00773 
00774 
00775 
00776 
00777 
01000 
01001 


01002 
01003 
01004 
01005 


01006 
01007 
01010 


01011 
01012 
01013 
01014 
01015 
01016 


391017 


01020 
01021 
01022 
01023 
01024 
01025 


01026 
01027 
01030 


006276 
000102 


192490 
040215 
062422 
101004 
000404 
010215 
0u0774 
006244 


062422 
024764 
106414 


‘000401 


006273 
900400 
006236 


0G6242 
COEézE1 
006377 
006277 
906102 
063622 
006244 


024060 
030074 
147000 
071422 
146414 
006244 


006271 
0c0001 
006244 


A2o: 


A20.1:5 


SUB 0-0 

STA O.CTR 
DIC Oe MTA 
MOV 0.06¢SZR 
JP 2 +4 

ISZ CTR 

JMP 24 


EHALT 


DIC O«.MTA 
LOA 1,419.1 
SUBH 041¢SZR 
JMP .+1 


TMDONE 
400 


JSR ALOOP 
;CHECK SIMPLE 4% 
JSR aSETuP 


GEN 
377 
WRITE 
102 
SKPON 
EHALT 


LOA 1,O0BUFF 
LDA 2-C2 

ADO 241 

Ors 2eeMTA 
SUBH 2.1+S2R 


EHALT 


STATUS 
1 
EHALT 
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t;CHECK FOR ZERO 
tWHEN IT CHANGES CHECK 
7FOR CORRECT DATA, 


+NO DATA IN DATA REGISTER 
sFOLLOWING WHITE START OELAY 
s;CHECK CLK OATA BITS 


CHAR WRITE 
twRITE 2wOd 
sCHECK CAe DONE FLAG 


s;OONE FLAG SHCULOD RE ON, 

tTHIS IS THE FIRST COMPLETE wR, 
:AND INVOLVES ALL THE WRITE 
s;LOGIC. TO COMPLETE A WRITE 
sERFeLOAD DELAY-DLY CVER-STOP-}= 
tTUR@MT GCONEe CLEAR MT BUSY, 
s;CHECK WC OVER. INCREMENT we. 


,;ADOR REG. WRONG! <AC1=GO000 
t,AC2=8AD. TwO OUTPUT XFERS 
$SHOULD HAVE OCCURRED 


,ACLTSEXPECTEO STATUS. ACO=SA0 
tIF CA WRONG YOU MIGHT EXPECT 

3:6A0 STATUS, FIX FIRST PROSLEMS 
sFIRST! 

tOATA PATTERN IS 1-20-1-0 

sFOR EACH TRACK. LATERAL 


01031 
01032 


01033 
01034 
01035 
01036 


010357 
01040 
01041 


01042 
010435 
01044 
01045 


01046 
01047 
01056 
01051 
01052 
01053 


01054 
01055 


01056 
01057 
01060 
01061 
01062 


01063 
01064 
01065 
01066 
01067 
01070 


01071 
01072 
91073 
01074 
01675 


006236 
006243 


006277 
000102 
063622 
006244 


060177 
000401 
OCe244 


061477 
024221 
106414 
006244 


024105 
066077 
060177 
Ovd401 
000402 
O06244 


060277 
006236 


102000 
040405 
020173 
046021 
006243 


006261 
L77777 
006277 
060110 
0632622 
Cu6244 


024060 
030101 
147000 
0612422 
106414 


A21s 


A22s 


A221: 


A22e2% 


JSR aLOOP 
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{PARITY IS ALWAYS 1. 


3;CHECK INTERRUPT ANG DISABLE 


JSR a@SETP1 


WRITE 
102 

SKPON 
EHALT 


oMTA 


INTEN 
JMP o4¢1 
EWALT 


INTA 0 
LOA 1,0EVICE 
SUBH 0+1+¢SZR 
EHALT 


twRITE 2 wO0S 

CHECK DONE 

sALLOW INTERRUPT 

DISABLE INTERRUPT 

sALLOW INT, ASAIN 

3NG OONE FLAG] THIS HAS WORKED 
;BEFGRE! RESTART PROGRAM, 


sALLOW 1 INST SEFORE INT, 
iNO INTERRUPT. CHECK MT INT REG 
sINTR GATE, INTP IN GATE. 


tWRONG AODRESS FROM MTA INT, 
tCHECK INTA AND GATES 


sACI=EXPECTED ADDRESS, ACO=BAD 

LDA 1+C40 

MSKO 1 SO0ISABLE MTA INT 

INTEN 

JMP .+1 

JMP +2 

EHALT s;ILLEGAL INTERRUPT! CHECK 
:MT INT DISABLE FLOP. AND 
s;CONTROL GATES 

INTOS . 

JSR aLOOP 

tWRITE 16 CHAR RECORD. ODD PARITY 

PATTERN IN a22,2 

AOC 0,0 

STA 0+A22,.2 

LDA O POINT 

STA 0,fCxX1 

JSR ASETPI sWRITE 
sCHECK DONEe CA 

GEN tSTATUS,. 

177777 

WRITE 

110 

SKPON MTA 

SHALT 3NO OONE FLAG! RECORDS TO NOw 


LOA 1,O0BUFF 
LOA 2.C10 
ADD 2e1 

Oise Oe.MTA 
SUER 091+S2R 


SHAVE BEEN 4 CHAR. THIS OQNE IS 
316 CHAR. THIS IS THE ONLY 

OIF FERENCE. REAUC AFTER WRITE 
DETECTS ERFeANO ERF-LOAD DELAY~ 
sOLY OVER=STOP=TUR=MT DONE, 
s;CHECK WO OVER. INCREMENT we 


01076 


01077 
02100 
01101 


01102 
01103 
01104 
01105 
01106 
01107 
01110 
01111 


01112 
01113 
01114 
01115 
01116 


01117 
01126 
01121 
d11i22 
01125 
01124 


01125 
01126 
01127 
01130 
01131 
01132 


011335 
01134 
011355 


01136 
01137 
01140 

1141 
01142 
01143 


GQ6244 


006271 
gGo0001 
006244 


006236 
020021 
024201 
1964905 
Oo90a04 
022021 
040754 
000751 


102000 
049405 
0269202 
C40021 
006243 


006261 
L77777 
006277 
1001120 
065622 
006244 


v24060 
930101 
147000 
0161422 
106414 
Od6244 


006271 
000001 
006244 


606236 
02002% 
024207 
1064905 
000404 
O22021 


A23: 


A23.1: 


A23.2: 


EHALT 


STATUS 


1 


EHALT 


JSR 
LDA 
LOA 
SUB 
JMP 
LOA 
STA 
JMP 


iWRITE 10 CHAR RECORD. 


aLOOP 
0e,IDX1 
1.LST 


O+1lsSNR 


A23 


QO,aIOX1 
0.A22.2 


A22.1 
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3CA WRONG, AC1=CORRECT 
ACQ=BAD. CHECK DATA 
3CHAN CONTRCL ANDO INCREMENT 
tWCe 10 OCTAL WORDS WRITTEN 


sACL=EXPECTED STATUS: ACO=BAQH 
THE CLUE IS IN THE BAD STATUS 
sEXPECT BAD STATUS IF ERRORS 
sOCCURREO PREVIOUSLY HERE. 


$60 TO NEXT TEST 
+;SET NEW DATA PATTERN 


EVEN PARITY (NR2Z) 


sPATTERN IS IN A2322 


ADC 
STA 
LDA 
STA 
JSR 


GEN 


0,0 


0,A23.2 
0,PONTP 


QO,IOxi 
aSETPL 


177777 
WRITE 
100110 
SKPON 
EHALT 


LOA 1,O0B8UFF 
LOA 2.-Ci0 
ADO 2e1 


DIB 


SUBH# 0+1+¢SZR 


Oe eMTA 


EHALT 


STATUS 


1 


EHALT 


JSR 
LDA 
LDA 
SUB 
uihP 
LCA 


aLooP 


OreICXxi 
ieLST1 
OvieSNR 
Ae 
OreaTOXi 


tWRITE 
sCHECK DONE. CA 
tSTATUS 


tNO DONE FLAG! THIS HAS WORKED 
;MANY TIMES BEFORE IN ODD PAR, 
s;CHECK READ AFTER WRITE ERF 
sOETECTION. 


sADOR, REG. WRONG, AC1=CORRECT 
sACO=BAD, CHECK DaTA CHAN REQ, 
2ANO INCREMENT we, 


tACI=CORRECT STATUS, ACO=BAD 
sPARITY ERRORS ARE LIKELY OUE 
TO THE PARITY CHECKING LOGIC 
(EVEN PARITY) 


01144 
61145 


91146 
01147 
01150 
01151 
01152 
011535 
61154 
61155 
01156 
01157 
01160 
01161 
01162 
01163 
01164 


01165 


01166 
91167 
91170 
01171 
01172 
01173 


01174 
01175 


01176 
01177 
01200 


01201 
01202 
01203 
01204 


01205 


01206 
01207 
012190 
01211 
01212 


01213 


6460754 
000752 


034222 
030075 
024076 
167400 
175400 
173400 
133000 
0242 
071022 
060122 
060422 
024151 
123400 
122414 
005244 


006236 


006243 
006266 
006255 
006271 
110201 
096244 


006236 
0G6242 


006275 
063622 
006244 


906274 
006271 
LOC4HNR1 
006244 


006236 


006254 
902224 
0062453 
024233 
066022 
024164 


he24s 


A258 


A26$ 


AeT: 


STA CeA23.2 


UMP 


A2sel 
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sTEST ILLEGAL STATUS 


LOA 
LCA 
LDA 
ANO 
INC 
AND 
ADD 
JSR 
DOA 
NIOS 
OIA 


LOA 1.C110000 


ANO 


SUBH 140,S2ZR 


EHAL 


JSR 


3«SWTSV 


2+C3 
1.C4 
Sel 
3,3 
342 
1,2 
ASETUP 
2eeMTA 
eMTA 
Oe eMTA 


1.0 


T 


aLOOP 


:GIVE START TO UNSELECTED 
STAPE 
;AC2=UNIT 


sSTART READ 


sREAO STATUS 


sACL=THE 2 BITS EXPECTED 
sACO=THE 2 31TS FOUND 

;LOOKING FOR ERROR ANDO ILLEGAL 
tSTATUS, CHECK ILLEGAL AND SET 
7GATES. ALSO STATUS BIT 


tTEST ILLEGAL STATUS 


JSR 
RwOS 


AaSETP1 
TALL 


BSPACE 
STATUS 
110201 


EHAL 


JSR 


tCHECK WRITE EOF 


JSR 


WEOF 
SKPD 
EHAL 


T 


aLOOP 


a@SETUP 


N MTA 
T 


~~ yACLSEXPECTEC STATUS. 


TESTPE 
STATUS 
1900401 


EHALT 


JSR 


{CHECK BAD TAPE 


aLOOP 


BYPASSPE 


JMP 
JSR 
LOA 
DOB 
LDA 


aIA28 
aSETPIL 


1eABTOF 


1s .MTA 
1.48 


sREWIND, GIVE 
sSPACE BACK AT BOT 


ACO=BA0~. 
3;CHECK SPACE BACKSOT GATE ON 

s ILLEGAL, CHECK SPACE 38KD 
sCOMMAND OECODE 


STATUS 
7 WwEOF 
3;AND CHECK STATUS 


3MO DONE FLAG, CHECK READ 
s;CIRCUITS, EOF COOE,"1ST CHAR 


tACL=EXPECTED STATUS. ACQ=BAD 
sCHECKING FOR EQOFsERROR. 
sCHECK EOF FLIP FLOP. 


STATUS (NRZ ONLY) 


wWRITES 16 CHAR RECORD 
7IN EVEN PARITY AITH 
73 ALL ZERO CHAR 


01214 
01¢15 
01216 
01217 
01220 
01221 
01222 
01225 
01224 


01225 
01226 
01227 


01230 


012351 
01232 
01233 
01254 
04235 
01236 
01237 
01246 
01241 


01242 
01245 
01244 
01245 


01246 
01247 
02250 
91251 
91252 


01253 
01254 
01255 
01256 
01257 
01269 
Q01261 
Q1i262 
012453 
61264 


C7022 
624212 
020116 
123000 
061122 
006273 
000400 
065622 
C06244 


0062714 
100041 
096244 


006236 


096243 
006266 
OCS277 
060162 
0G6255 
096273 
980400 
Gs3622 
036244 


006271 
006001 
0uE24% 
005226 


006243 
006268 
006271 
100201 
006244 


006277 
00202 
102120 
063022 
020105 
024212 
123000 
0241290 
OSE022 
Celi2e 


A28-s 


A30° 


DOC 
LDA 
LDA 
ADD 


te eMTA 
1.Cx 
0-C150 
1,0 


OOAS 0+.MTA 


TMOONE 
400 
SKPON 
EHALT 


STATUS 
100041 


EHALT 


JSR a@aLOOP 


<;CHECK BACKSPACE 


JSR ASETP1 
RWOSTALL 
WRITE 


SKPON MTA 
EHALT 


STATUS 


1 


EHALT 
JSR ALOOP 


iCHECK BACKSPACE 


uSR aSETPL 
RWOSTALL 
STATUS 
100201 
EHALT 


WRITE 


262 


AOCZL 0-0 


DOC 
LDA 
LOA 
ADO 
LDA 
OCB 


OeeMTA 
0.C40 
1.Cx 
1.0 
1,C0375 
1, .¢TA 


DORS 04.MTA 
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sNO DONE FLAG, THIS HAS 
;WORKED MANY TIMES BEFORE] 


sACL=EXPECTED STATUS», ACO=8AD} 
sEXPECTING BAD TAPE STATUS, 

7IF NONE CHECK @8AD TAPE FLOP] 

3A 16 CHAR REC. IS WR. IN EVEN 
sPARITY! CHAR 1-28 EACH CONTAIN 
$1 BITS GelGelle ALL ZEROS CHAR 
312-16 EACH CONTAIN 1 BIT AGAIN, 


sREWINDeWRITE 1 REC. 
;BACKSPACE AND CHECK 
;00NE ANO OESELECT 
;STATUS 


3NO DONE FLAG FOLLOWING 
s$BACKSPACE. CHECK SPACE 
COMMAND OECODE ANO DRIVER 
:TO TAPE. 


sACisEXPECTED STATUS. ACO=BAD 


sREWINO-CHECK FOR BOT 

twRITE 2 REC. CHECK 

iSTATUSs» BACKSPACE 2 

‘CHECK STATUS AT SoT 
tACLSEXPECTED STATUS. ACO=BAD. 
sLOOKING FCR BUT FOLLOWING 
REWIND. THIS SHOULD WORK! 


3375 TO CA 
i;BACKSPACE 2 


01265 
01266 
01267 
01270 
61271 
C1272 
01273 
01274 
01275 


01276 


01277 
013500 
01301 
01502 
G1363 
01304 
013905 
01306 
01367 
01310 
01311 
01312 
681312 
013534 
013515 
01316 
013517 
013290 


01321 
01322 
013522 
013524 


013525 


013526 
01327 
01330 
01331 
01552 
01333 
01354 
91335 


01336 
01357 
C1340 


006273 
0G1000 
C06271 
000001 
CV6244 
061422 
024121 
122414 
C06244 


0056236 


0062435 
006266 
CO06277 
GOC302 
OZ4ile 
065922 
G96255 
C24161 
067022 
006273 
002000 
306272 
002000 
690201 
900401 
Ou6271 
100201 
006244 


024113 
061422 
166414 
006244 


0062356 


096243 
006266 
096277 
000302 
006266 
006271 
100291 
006244 


024112 
066022 
OC6270 


A313 


A323 


TMOONE 

isco 

STATUS 

i 

EHALT 

DIB 0+«.MTA 
LOA 1,C377 
SUB# 140eSZR 
EHALT 


JSR aLOOP 
s;CHECK BACKSPACE 
JSR A2SETPL 
RWOSTALL 
WRITE 

302 

LDA 1,C100 
OCB 1+eMTA 
BSPACE 

LDA 1.4 
DOC 1+.MTA 
TMDONE 


LDA 1.+Ci03 
SUBH 0+19S2ZR 
EHALT 


JSR aLCOoP 


tACLT=EXPECTED 


tADDRESS REG. 
32 REC SHOULD 
:TWICE OURING 


sREWIND-WRITE 
tBACKSPACE 4, 


STATUS. 


ERROR 
1cR IT 
BACKSPC 


3 REC! 


CHECK 


BOT AND CA FOR 


33 COUNTS 
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ACO=B8A0} 


tACI=EXPECTED STATUS: ACO=BAD 
;BOT SHOULD STOP OFRATION 
3IN 3 BACKSPACES 


sCA REGISTER SHOULD 
“WINCREMENT 
sACQ=ACTUAL CA REG, 
sOIRECT SET LINE ON 


tAFTER 3 


$CHECK SPACE FORWARD 
tREWINDeWRITE 3 REC] 
tREWIND=-CHECK STATUS 
SPACE FORWARD@CHECK 


JSR ASETP1 
RWOSTALL 
WRITE 

302 
RWOSTALL 
STATUS 
100201 
EHALT 


LOA 1+C100 
DOB 1e.MTA 
SPACE 


3;FOR NOT BOT. 
tADOR. REG. 


,ACL=EXPECTED 


A PROPER 


STATUS. 


BE 103 
we", 

CHECK 
STOP FF 


THE 


ACO=BAD 


sTHIS HAS WORKED MANY TIMES 


:SEFORE! 


IF ERROR RESTART PROG 


01341 
01342 
01343 
01544 
01345 
01346 


01347 
01350 
61551 
G1352 
01353 


013554 


01355 
01356 
01357 
01360 
01563 
01362 
013563 
013564 
01565 
01366 
01367 
01370 
01371 
01572 


01373 
0137% 
01375 
01376 


(01377 

01400 
01401 
01402 
01403 


01404 
01405 
31406 
01407 


906273 
202000 
$66274 
006271 
000001 
006244 


024112 
225490 
061422 
194514 
005244 


095236 


102000 
C4ugudte 
020173 
640021 
026243 
CI6266 
056261 

L7777 
OU6277 
Cu0110 
gos274 
006271 
Ood001 


Goe6244 


006266 
006274 
don2o1 
096244 


006257 
006265 
o00119 
063622 
C0624%4 


006274 
006272 
N600G1 
096244 


A333 


A33.i: 


A33.2: 


TMDONE 
2060 
TESTPE 
STATUS 
z 
EHALT 


LOA 1.C€1C0 
INC lei 

DIB O«.MTA 
SUBH 0¢1+SZR 
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sACL1=EXPECTED STATUS+ ACO=BAD} 
sTHIS IS THe FIRST SPACE FOR, 
CHECK COMMAND OLCODER-SPACE FWD 
sCOUNT WC 


s;ADDR REG WRONG! 


EHALT ACL=CORRECT 
sACO=ACTUAL! ONE INCR FRO 100 
TO 101 SHOULD HAVE OCCURED! 
sCHECK SPACE FWO NOT-COUNT wWC-= 
s, INCREMENT Wc, 

JSR aALOOP 

{CHECK READ INSTRUCTION. READ 16 CHAR 

tRECORDS. PATTERN IN A3Z3.2 (ODD PARITY) 

ADC 0,0 tREWINDeWKITE 1 REC. 


STA 0,433.2 
LDA O.POINT 
STA O«IDXx1 
JSR @ASETP1 
RWOSTALL 


SEN 
17777 
WRITE 
110 
TESTPE 
STATUS 
1 
EHALT 


RWOSTALL 


STATUS 
100201 
EHALT 


CLEAR 
READ 
120 
SKPON 
EHALT 


TESTPE 
STATUS 
Bi 
EHALT 


+CHECK STATUS=REWIND= 
sCHECK STATUS*READ} 
s;CHECK SCONE. STATUS, 
sADOR, REG, & DATA 
,GUFFER 


tACLSEXPECTED STATUS: ACO=8AD 
tTHIS MUCH HAS WORKED GEFORE, 
3MANY TIMES! RESTART THE PROG, 


sACL=EXPECTED STATUS, ACO=8AD 
tLOOKING FOR ENT BEFORE TRYING 
sFIRST REAO, THIS HAS WORKED 
;BEFORE! 


s$NO DONE FLAG FOLLOWING READ, 
:THIS IS THE FIRST READ INST, 
sCHECK READ-UCHI-INCREMENT WC 


sACLTSEXPECTED STATUS» ACO=BA0 


01410 
01411 
01412 
61413 
01414 
01415 


01416 
01417 
01420 


01421 
01422 
01423 
01424 
01425 
01426 
01427 
01430 


01431 
01432 
01433 
01434 
01435 
01436 
01437 
02440 
01441 
01442 
01443 
02444 
01445 
01446 


01447 
91459 
01451 
02452 


01453 


020061 
O241G1 
107000 
061422 
106414 
006244 


066256 
600010 
006244 


006236 
020021 
O242u1 
196465 
000404 
022021 
940735 
000731 


102000 
040406 
020202 
040021 
0G6245 
006266 
006261 
177777 
Q060277 
200110 
006274 
GO6271 
o0cGdL 
006244 


0062658 
006271 
100201 
006244 


006257 


A343 


A3S%.1s 


A34.2: 


LDA O+«IBUFF 


LOA 1,Ci0 
AOD Oel 
DIB 0,,MTA 


SUBH 0+1+SZR 


EHALT 


CHECK 


10 


EHALT 


JSR 
LDA 
LDA 
SUB 
JMP 
LDA 
STA 
JMP 


aLooPp 


0,IOX1 
1.LST 
GeieSNR 


A34 


OeaIDX1 
6,A33.2 


A33.1 


t;CHECK READ 
sRECORDOS, 


ADC 
STA 
LDA 
STA 


0.0 
0.A34.2 
0.PONTP 
0,IDX1 


JSR ASETF1L 
RWOSTALL 


GEN 


INSTRUCTION! 
PATTERN IN A34.2 (EVEN PARITY NRZ) 


L?7777 
WRITE 
1900110 
TESTPE 
STATUS 
1 
EHALT 


RWOSTALL 


STATUS 
100201 
EHALT 


CLEAR 
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390% OF THE REAG LOGIC HAS BEEN 
s;CHECKED SURING WRITE OPEKATION 
IPROBLEMS HERE ARE LIKELY IN THE 
sPROCESSOR INTERFACE AREA, 


sADDRESS REGISTER IS WRONG, 
ZACLSCORRECTe ACGAACTUAL. 
$10 WORD REC READ, CHECK 
3MT OCH SEL-OCHMQeINCREMENT 
saC 


:INPUT BUFFER CONTAINS WRONG 
sOATA, INPUT BUFFER SHOULO 
sOQUTPUT BUFFER FOR THE FIRST 8 
tWOROSe ACO=GOO0D WORDe AC1I=BAD 
tAC2=ADDRESS OF INPUT BUFFER 


READ IS CHAR 


sREWINO|ewWRITE 1 REC! 
3CHECK STATUS-KEwWINO 
CHECK STATUS=KEAD 
t+CRHECK DONE,.STATUS, 
sADDRESS REG DATA IN 
;BUFFER 


sACLI=EXPECTED STATUS, ACO=BAD 
THIS MUCH HAS WORKED BeFORE! 
TRESTART PROGRAM 


sACL=SEXPECTED STATUS. ACO=B8AD 
LOOKING FOR BOT STATUS BEFORE 
STRYING FIRST EVEN PARITY REA 
sTHIS SHOULD WORK! 


01454 
01455 
01456 
01457 


01460 
01461 
01462 
02463 


01464 
01465 
061466 
01467 
01470 
01471 


01472 
01473 
01474% 


01475 
01476 
01477 
015¢9 
01501 
01502 
01502 
91504 


61505 
01506 
C1507 
01510 
01511 
01512 
01513 
01514 
01515 
01516 


§1517 
01520 
01521 
01522 


006263 
109110 
063622 
006244 


606274 
006271 
000001 
006244 


020061 
C24101 
107600 
061422 
106414 
O0624%4 


006256 
v00G10 
GU6244 


006236 
026021 
£24207 
106405 
C00404 
922021 


(040735 


G90731 


006243 
055266 
906261 
125252 
006277 
06110 
0C6274 
OGEZ71L 
c0c001 
006244 


0906266 
006263 
Q0G177 
G$3622 


A353 


READ 
1001 
SKPD 
EHAL 


TEST 
STAT 
1 


EHAL 


LOA Oe IBUFF 


LDA 
ADO 
018 


SUS# 0+91+S2ZR 


HAL 


JMP 


sREAD 16 CHAR R=C!I 


JSR 
RWOS 


io 
N MTA 
bs 


PE 
US 


T 


1.C10 
Oel 
0,eMTA 


T 


aLooP 
OeI0x1 
1eLST1 
OeleSNR 
A35 
OedIOX1 
0rA34.2 
A34,1 


QaSETP1 
TALL 


RWOSTALL 


READ 
177 
SKPON 
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3;NO OONE FLAG, CHECK ERF~ 
sOCHI-=INCREMENT WC 


sACLSEXPECTED STATUS. ACO=BAD 
sCHECK PARITY CIRCUITS! THIS 
:IS THE ONLY OIFFERENCE FROM 
tTHE LAST TEST. 


sADORESS REGe IS WRONG. ACi= 
sCORRECT VALUE, ACO=ACYUAL. 
$10 wORD REG. READ, CHECK MT 
s0CH SEL=OCHMO=INCREMENT aC 


INPUT BUFFER CONTAINS WRONG 
sDATA! INPUT BUFFER SHOULD 


sSOUTPUT BUFFER FOR FIRST 8 WROS 


3ACO0sGO0D WORD. AC1=8AD WORD 


sAC2=ADCRESS OF THE INPUT BUFFER 


WITH wC=63 
tREWIND= WRITE 1 REC, 
sCHECK STATUS-REWIND 
tREAD@-CHECK OONE, 
:STATUS,ADOR REG, 
tAND DATA 


sACLSEXPECTED STATUS: ACO=8AD 
sDON®9T TRY TO READ IT IF IT 
;CANNCT BE WRITTEN PROPERLY! 
s;THIS KAS WORKED BEFORE, 
tRESTART PROGRAM 


01523 


01524 
01525 
N1526 
01527 


01530 
01531 
01532 
01533 
01534 
01555 


01536 
01537 
01540 


01541 


91542 
01545 
01544 
01545 
01546 
01547 
01550 
01551 
01552 
01553 


01554 
01555 
01556 
01557 
01560 


01561 
01562 
01563 
01564 


01565 
01566 
01567 
0157¢ 


006244 


006274 
006271 
ooco0l 
006244 


0205961 . 


024101 
1u7000 
991422 
106414 
BVOE244 


006255 
000010 
906244 


006236 


006243 
006265 
006261 
125252 
006277 
000177 
006274 
006271 
000001 
006244 


006266 
004525 

C99110 
063622 
006244 


006274 
006271 
ooco0n1 
006254 


020061 
024101 
1070900 
063422 


ae 


A363 


EHALT 


TESTPE 
STATUS 


1 
EHALT 


LOA Oe IBUFF 
LOA 1,C10 
ADD Oel 

DIB Oy.MTA 


SUB# 0¢11+S5ZR 


EHALT 


JSR aLOOP 


sREAD 63 CHAR RECI 


JSR aASETP1 
RWOSTALL 
SEN 

125252 
WRITE 

5 OY oy 
TESTPE 
STATUS 

1 

EHALT 


RWOSTALL 
READ 

110 

SKPDN .MTA 
EWALT 


TESTPE 
STATUS 


1 
EHALT 


LCA OeIBUFF 
(DA 14+C10 
£00 Oe 

DIB CeMTA 
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3NO DONE FLAG. CHECK INCREMENT 


swCERF=STOP=TUR 


tACISEXPECTED STATUS» ACO=8AD 
3THIS IS THE FIRST TIME ON A 
sREAD THAT THE WC OION'T MATCH 
;THE RECORD LENGTH, CHECK 
tERF GATE ON STOP! 


tADDRESS REGISTER wRONG 
$ACL=CORRECT ADORESS+e ACO=B8AD! 
s;CHECK INCREMENT we 


s;DATA ERROR! 
ACO=GO00 wORD, AC1=8AD WORD 
tAC2sADCRESS OF THE INPUT BUFFER 


WiTH WC=10 
sSREWINDeWRITE 1 REC! 
sCHECK STATUS-KEWIND 
sREADeCHECK OONE. 
sSTATUS+ADOR. REG! 
sAND DATA 


sACISEXPECTEO STATUS, ACO=BAD 
THIS MUCH HAS WORKED MANY 
TIMES BEFORE. RESTART PROG, 


tNO GONE FLAG! CHECK INCREMENT 
tWCeWwC OVERFLOW-STOP 


sACLSEXPECTED STATUS. ACO=BAD 
THIS IS THE FIRST TIME A RO. IS 
tSTOPPED BY WC OVERFLOW ALONE, 
3LOO0K FOR WO OVERFLOW AND CHECK 
+THe wC OVERFLOW GATE ON STOP 


01571 
01572 


01573 
01574 
01575 


01576 


01577 
01600 
01601 
01602 
01603 
01604 
01605 
01606 
01607 
01610 
01611 


01612 
01613 
01614 
01615 
01516 
01617 
01620 
01621 


01622 


01623 
01624 
01625 
01626 
01627 
01630 
01651 
01632 
01633 


01634 
01635 
01636 


Lo5414 
Ofs2e44 


006256 
000010 
006244 


006236 


006254 
062225 
096243 
O02261 
125252 
006256 
006277 
100102 
CO6271 
e20C002 
06244 


006255 
006273 
00400 
606263 
000102 
806271 
1029001 
006244 


006236 


00624%3 
006261 
125252 
004266 
006277 
000102 
006271 
000001 
006244 


006255 
006273 
000400 


A37% 


A383 


SUBH 0+1¢S2ZR 


EMALT 


CHECK 
10 
EHALT 


JSR aLOOP 
tWRITE 4 CHAR REC! 
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sADDRESS REG. WRONG! 
sADDR. 4co=B840, 
sCHECK DCHI LOGIC aNOD INCREMENT we 


ACU=SCORRECT 


tDATA ERROR! INPUT BUFFER SHCULD 
=OUTPUT BUFFER FOR THE FIRST 6 
t;WORDS. 

sACO=G005 WORD, AC1=BAD WORD 
tAC2=ADDRESS OF THE INPUT SUFFER 


IN EVEN PARITY 


sREAC IT IN OOU FARITY. (NRZ ONLY) 


BYPASSPE 
JMP AITAS9 
JSR ASETP1 


GEN 
125252 


RWOSTALL 


WRITE 
100102 
STATUS 


i 
EHALT 


BSPACE 
TMOONE 
400 
READ 
1G2 
STATUS 
102001 
EHALT 


JSR aLOOP 


tREWING-WRITE 1 REC! 
sBACKSFACE }READ 
CHECK STATUS 


sACL=EXPECTED STATUS. ACO=8AD 
s;THIS HAS WORKED MaNY TIMES 
;BEFORE! RESTART PROGRAM, 


sACL=SEXPECTED STATUS. ACO=B8AD 
LOOKING FOR PARITY ERROR: IF 
NONE CHECK THE PARITY CHECKING 
sLOGIC. (000) 


tWRITE 4 CHAR RECORD IN ODD PARITY 
sREAOD IT SACK IN EVEN PARITY (NR2Z ONLY) 


JSR @ASETPI 


GEN 
125252 


RWDSTALL 


WRITE 
102 
STATUS 
1 
EHALT 


BSPACE 
TMOONE 
400 


TSREWINDewWRITE 1 REC! 
+;BACKSPACE READ 
s;CHECK STATUS 


sACI=EXPECTED STATUS. ACO=B8AD 
s;THIS HAS WORKED MANY TIMES 
,BEFORE, RESTART PRCGRAM 


01637 
01640 
01641 
01642 
01643 


01644 


01645 
01646 
01647 
01650 
01651 
01652 
01653 
61654 


01655 
01656 
C1657 
01660 
01661 
01662 
01663 
01664 
01665 
01666 
01667 
01679 
01671 


01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 


01703 


01704 
01705 
01706 
91707 
01710 
01711 
091712 
01713 


006263 
100102 
096271 
102001 
006244 


006236 


006243 
006266 
006277 
009110 
006275 
006271 
100401 
OC6244 


006266 
006263 
0002106 
054127 
030124 
020222 
024112 
197405 
357000 
054402 
CGE2S71 
100401 
006244 


024061 
020222 
034122 
157404 
000402 
125490 
061422 
106414 
006244 


006236 


006243 
006266 
C06277 
G00210 
C06275 
GO06272 
1004901 
065244 


A39% 


A4&O0S 


READ 

100102 
STATUS 
102001 


EHAL 


JSR 


3CHECK KEAD EOF 


JSR 
RwWOS 
WRIT 
110 
WE OF 
STAT 
1004 
EHAL 


RWOS 
READ 
210 
LDA 
LDA 
LDA 
LOA 
AND 
AOD 
STA 
STAT 
1004 
EHAL 


LDA 
LDA 
LDA 
AND 
UMP 
INC 
O1B 


SUB# 0.41-+SZR 


EHAL 


JSR 


;CHECK READ EOF 


JSR 
RWOS 
wRIT 
219 
WEOF 


T 


aLOOP 


ASETFL 
TALL 
€ 


US 
O1 
T 


TALL 


3,Ci004 
2.C2000 
OeSwWTSV 
1,Cio0 
OeleSNR 
293 

Se e+2 
US 

01 

T 


1,IBUFF 
2eSWTSv 
32C400 
2¢3eSZR 
e+2 

11 
OeeMTA 


T 


aLOOCP 


AGSETPL 
TALL 
2 


STATUS 
1004901 
EHALT 
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sACI=EXPECTED STATUSs ACOQ=8AD 
LOOKING FOR PARITY ERROR] IF 
s;NONE CHECK THE READ PARITY 
s;CHECKING LOGIC. (EVEN) 


tTREWIND-WRITE A 16 
sCHAR REC!, WRITE EOF 
sCHECK STATUS 
sREWIWO-REAS 2 REC, 
sCHECK STATUS,CA 


sACI=EXPECTEOD STATUS. ACO=BAD 
tTHIS HAS WORKED BEFORE, RESTART 


sACLI=EXPECTED STATUS. 
s;LOOKING FOR READ EOF, 


ACO=BAD 


:SKIP INC IF PE 


sAGCORESS REG wRONG, AC1I=CORRECT 
sACO=3AD, EOF SHOULD INCR 
swC ANO AOOR, BY 1 


ON SPACE BACK 
TREWINDeWRITE 2 REC 
swRITE EOF THEN 3 REC 
;BACKSPACE 10 

3CHECK STATUS AND 
;ACOR REG. 


SACASEXPECTED STATUS, ACO=BAD 
:THIS HAS WORKED BEFORE! 


01714 
01715 
01716 
01717 
01720 
01721 
01722 
01723 
01724 
01725 
91726 
01727 


01730 
91731 
01732 
01733 


01734 


01735 
01736 
01737 
01740 
GL741 
01742 
01743 
01744 


01745 
01746 
01747 
01750 
01751 
01752 
01753 
01754 
01755 
01756 
01757 
01760 
01761 
61762 


01763 
01764 
6127S5 


006277 
000310 
006255 
020164 
063022 
g920112 
CE2022 
006273 
001000 
066271 
100491 
006244 


024114 
061422 
106414 
OVEL4Y 


006236 


006243 
006266 
906277 
000210 
G06275 
0G6271 
400401 
006244 


906277 
90¢310 

$6265 
066270 
O2z01é2 
063022 
020112 
062022 
006273 
010060 
006274 
O0s271 
100401 
036244 


024113 
061422 
166444 


AGls 


LOA 0.M8 
DOC 0,.fiTA 
LOA 0.Ci00 
DOB O«.MTA 
TMOONE 
1000 
STATUS 
100401 
EHALT 


LOA 1,C104 
DIB OeeMTA 
SUBH 0¢1+¢SZR 
EHALT 


JSR alLOOP 
sCHECK READ EOF 
JSR ASETP1 
RWDOSTALL 

WRITE 


WRITE 

310 
RWOSTALL 
SPACE 

LOA 0O«M5 
DGC OeeMTA 
LDA 0,C100 
DOB 04.MTA 
TMOONE 
1e¢¢90 
TESTPE 
STATUS 
100401 
EHALT 


LOA 1.C193 
DIB OeeMTA 
SUBH 0914SZR 
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sRESTART PROGRA* 


sACL=EXPECTED STATUS, 
s;LOOKING FOR EOF, 
sEOF GATE ON STCP 


ACO=BAD 
CHECK 


sADDRESS REG. IS WRONG! 
sACIT=SCCRRECT VALUE, ACO=BAG 


3CHECK "COUNT WC" ANDO INCREMENT 
SHOULD SET 4 COUNT WC 
;BEFORE STOP 


ON SPACE FORWARD 
tREwINDewWRITE 2 REC 
+WEOF WRITE 3 REC 
tREWIND*?SPACE 3 
sCHECK STATUS+ADDR 
sREG, 


sACLT=EXPECTED STATUS». ACO=BAD 
3THIS HAS WORKED BEFORE, 
sRESTART PROGRAM 


sACLSEXPECTED STATUS: ACO=BAD 
sLOCKING FOR EOF STATUS. THIS Is 
3THE SAME AS THE LAST EXCEPT 
s;THAT SPACING IS FORWARD 


01766 


01767 


91770 
C1771 
01772 
01773 
01774 
01775 
01776 
01777 
02000 
02001 
02002 
02003 
02004 
02005 
d02006 


02007 
02010 
02011 
02012 
02013 
o2ci4 
02015 
02916 
62017 
02020 
02021 
02022 
02023 
02024 


02025 
02026 
02027 
026350 
02031 
02032 


02053 
92054 
02635 
02036 
020357 
02049 


206244 


006236 


034222 
030112 
157415 
002226 
006254 
002231 
9306243 
006266 
006262 
003107 
006277 
000102 
UC6271 
Ocoool 
006244 


006266 
006257 
024157 
Cé7022 
924061 
427240 
066022 
024212 
965122 
096273 
£02000 
C06271 
000001 
006244 


061422 
024061 
OS0074 
147009 
106414 
006244 


131090 
066422 
045000 
006256 
000003 
006244 


A423 


EHALT 


JSR aLOOP 


s;CRCeLPC CHECK 
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sADDRESS ERROR! AC1L=CORRECT 
sACO=KA0, TWO INCREMENT we 
sSHOULD HAVE CCCURED 
sEOF GIVES STOP. 


SITRACK ONLY NRZ ONLY 


LDA 3.SwWTSV 
LOA 2,C100 
ANOH 2¢3+¢SNR 
J¥P @TAS6 
BYPASSPE 
JMP aIA50 
JSR ASETPL 
RWOSTALL 
LOAD 

PATi-l 
WRITE 

i102 

STATUS 

1 

EHALT 


RWOSTALL 
CLEAR 

LOA 1.M2 
DOC 1e.MTA 
LDA 1,IBUFF 
AGOOR lel 
DOB 1¢e.MTA 
LDA 1,.Cx 
DOAS 1+.MTA 
TMOONE 

2000 

STATUS 

1 

EHALT 


DIB O¢eMTA 
LOA 1,IBUFF 
LOA 2-C2 

ADD 2¢1 

SUBH 041+S2ZR 
EHALT 


MOV 1,42 
DIC 1+.MTA 
STA 1+0e2 
CHECK 

3 

EHALT 


sSKIP OVER 9 TAPE FESTS 


sREWIND-WRITE 1 REC 
sCHECK STATUS=REWIND 
yREAD( TEST MOCE) 
sCHECK STATUS +CAeDATA 


sACI=EXPECTED STATUSe ACO=BAD 
s;THIS HAS WORKED BEFORE, 
sRESTART PROGRAM 


;SET BIT 0 


sACLISEXPECTED STATUS+ ACO=B8AD 
sJUST READ 4& CHAR REC IN TEST 
+;MOCE. TEST MODE IS THE ONLY 
yNEwW VARIABLE, 


s;ADOR REG WRONG, 
sAC7T=ACTUAL 


ACL=CORRECT 


sDATA ERROR! 2 WORDS WERE WR, 
$3 WORDS wERE READ, THE SRD 


02041 


02042 
02043 
02044 
02045 
C2046 
02047 
02050 
02051 
02052 


C2053. 


02054 
C2055 
02056 
02057 
02000 
02061 
02062 
02063 
02064 
02065 
02066 
02067 
02070 


C2071 
02072 
02073 
C2074 
02675 


006236 


006243 
005266 
006262 
903112 
006277 
000102 
J3S271 
Q90001 
95244 


G06266 
G06257 
Gée%157 
067022 
024061 
127240 
O0SE6022 
O24%212 
065122 
O06275 
002094 
006271 
Oocodol 
096244 


061422 
024061 
0350074 
147000 
1090414 


A¥3s 


JSR aALOOP 


sCRC-LPC CHECK 
339 TRACK ONLY 


JSR ASETP1 
RWOSTALL 
LOAD 
PAT2<1 
WRITE 

102 

STATUS 

1 

EHALT 


RWOSTALL 
CLEAR 

LOA 1,42 
DOC 1,.MTA 
LOA 1,IB8UFF 
ADDOR lal 
DOB 14.MTA 
LOA 1,Cx 
DOAS 1-+MTA 
TMDONE 

2000 

STATUS 

1 

EHALT 


DIs8 Oy eMTA 
LOA 1eIBUFF 
LOA 2,CEé 

ADD 2,1 

SUBR 021+52R 
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tWORD IS CRC(LEFT) 
sCRC(LEFT) 
sTHIS TEST LOOKS FOR BIT PIcKUPS 
tIN THE CRC GEN. DATA IS CHOSEN 
3TO PROOLCE MINIMUM 1°S IN CKC 
SGENERATION. TRE SEQ. XOR-SHIFT 
s:COMPARE IS DONE ONCE FOR EACH 
sOF THE GY CHARACTERS, 
3XOF 143 PROOUCE A 1 IN CRC1 
tWHICH IS THEN SHIFTED INTO CRC2 
sALL JTHER CASES PRPOOUCE O°S, 
31°S ARE WRITTEN ON TAPE SECAUSE 
30OF CRC COMPLEMENT AT THE END} 
sAC2sA0D03. IF IBUFF 
sACL= BAD WORD 
sACQ= GOOD WORD 
sEXPECTED DATA IS 000200 

2200200 

$ 153600 


tREWINO-WRITE 1 REC 
sCHECK STATUS-REwING 
sREAO( TEST MODE) 
sCHECK STATUS.CA,DATA 


tACi=EXPECTED STATUS. ACO=S3AD 
tTHIS HAS WORKED BEFORE, 
sRESTART PROGRAM 


;SET BIT O 


tACISEXPECTEC STATUS, ACO=B8AD 
;JUST READ 4 CHAR REC IN TEST 
s;MODE. TEST MODE IS THE ONLY 
sNEW VARIABLE, 


02076 


02077 
02100 
02101 
02102 
02103 
02104 


02105 


0210¢ 
02157 
02116 
0211i 
02112. 
02113 
02114 
02115 
02116 


02117 
02120 
02121 
02122 
02123 
62124 
02125 
02126 
02127 
021350 
02131 
02132 
02153 
021354 


006244 


1319000 
066422 
045060 
006256 
000003 
OU6244 


006236 


006243 
006266 
dd6262 
OO3115 
006277 
940102 
OG6271 
000001 
006244 


0C6266 
006257 
024157 
067022 
024061 
127240 
066022 
024212 
065122 
006273 
002069 


Udtaties ae] 


C062 74 
0900001 
GI6244 


AY § 


EHALT 


MOV 12 
DIC 14.MTA. 
STA 1,022 
CHECK 


3 
EHALT 


JSR @LOOP 
sCRCeLPC CHECK 
33 TRACK ONLY 
JSR @SETPL 
RWOSTALL 

LOAD 

PAT3<1 

WRITE 

ide 

STATUS 

1 

EHALT 


RWOSTALL 
CLEAR 

LDA 1:M2 
DOC 1+eMTA 
LDA 1+iBUFF 
ADDOR 11 
OOS ieMTA 
LDA 1+Cx 
DOAS 1leeMTA 
TMOONE 

2000 

STATUS 

i 

EHALT © 
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sADOR REG WRONG, ACi=CORRECT 


;ACG=ACTUAL. 


+DATA ERROR, 
$3 wORODS wERE REAO, 
tWORD IS CRC(LEFT), 
3THIS TEST LOOKS FOR BIT 
3aN THE CRC GEN. DATA IS 
TO PRODUCE A MINIMUM OF 
sSEQ, THE XOB-SHIFT-COMP 
sONCE FOR EACH OF THE 4 
ICHARACTERS FOLLOWING EACH 
sCOMP. CRC 495e54.7 ARE ZEROS. 
sALL OTHER BITS ARE ALWAYS 1°S. 
$ZEROS ARE WRITTEN ON TAPE 
;BECAUSE OF CRC COMP AT ENO, 
sAC2=ADOR OF IBUFF 
sACL=BAD WORD 
t:ACO=G000 WORD 
EXPECTED DATA IS 177474 

+ 136074 

3 112074 


THE 320 
DROPS 
CHOSEN 
O°S. 
OCCURS 


TREWINODeWRITE 1 REC 
sCHECK STATUS©REWIND 
sREAD( TEST MODE) 
3CHECK STATUS.CA,DATA 


tACLSEXPECTED STATUS». ACO=8AD 
3;THIS HAS WORKED BEFORE, 
sKRESTART PROGRAM 


;SET BIT 0 


sACISEXPECTED STATUSs ACO=BAD 
sJUST READ Y CHAR REC IN TEST 


2 WORDS WERE WRITTEN 


02135 
02136 
02137 
02140 
02141 
02142 


02143 
02144 
02145 
02146 
021%7 
021590 


02151 


02152 
02155 
02154 
O2155 
92156 
02157 
02160 
02161 
02162 


62163 
02164 
02165 
02166 
02167 
02170 
02171 
02172 
$2173 
02174 
02175 
02176 
02177 


061422 
024661 
030074 
147000 
106414 
006244 


131000 
066422 
045000 
6u6256 
000003 
006244 


696236 


006243 
306266 
906262 
903120 
006277 
000102 
6006271 
Ocnddl 
006244 


006266 
006257 
024157 
067022 
024061 
127240 
066022 
024212 
065122 
006273 
092000 
Coe271 
090001 


AS5: 


CIB O+.MTA 
LOA 1,IBUFF 
LOA 2,C2 
ADD 2.1 


SUBH 051452ZR 


EHALT 

MOV 1:2 
BIC ly eMTA 
STA 1402 
CHECK 


3 
EHALT 


JSR ALOCP 


sCRCeLPC CHECK | 
39 TRACK ONLY 


JSR SSETP1 
RWOSTALL 
LOAD 
PAT4=1 
WRITE 

102 

STATUS 

1 

EHALT 


RWOSTALL 
CLEAR 

LOA i-+Me 
DOC 1+.MTA 
LDA 1-IBUFF 
ADDOR lel 
O08 1seMTA 
LDA 1,CX 
DOAS 1¢.MTA 
TMOONE 

2000 

STATUS 

1 
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sMOOE, TEST MODE IS THE ONLY 
s;NEW VARIABLE, 


sADOR REG WRONG] 
sACO=ACTUAL! 


ACLT=CORRECT 


sDATA ERROR! 2 WORDS WERE 
tWRITTEN,. 3 wWOROS WERE REAG, 
3THE 3RO wORD IS CRC(LEFT) 
sTHIS TEST IS A GATE CHECK FOR 
3THE CRC GEN. DATA IS CHOSEN TO 
tPROODOUCE ALL COMBINATIONS UF XOR 
7ON EACH CRC STITT. THIS 4 CHAR 
sREC, CATCHES BOTH OF THE CASES! 
sAC2=ADOR OF IBUFF 
s;ACL=BAD wORD 
sACO=GO0D WORD 
sEXPECTED DATA IS 052652 

$ 076232 

$ 037232 


sREWINDeWRITE 1 REC 
CHECK STATUS-REWIND 
sREAD( TEST MODE) 
3CHECK STATUS,CA,DATA 


sACLI=EXPECTED STATUS+ ACO=8AD 
s;THIS HAS WORKED SfFCRE, 
sRESTART PROGRAM 


;SET BIT C 


02200 


02201 
02202 
02203 
02204 
02205 
02206 


02207 
02210 
02211 
02212 
02213 
02214 


02215 
02216 
02217 


02220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 


02230 
02231 
02232 
92233 
02234 
022355 
02236 
02237 
02240 
02241 


06244 


061422 
024061 
o50074 
147000 
106414 
006244 


131000 
066422 
045000 
088256 
000003 
006244 


006236 
902401 
062453 


C0S6243 


006262 
003123 
006277 
000102 
006271 
060001 
006244 


006255 
006273 
090400 
C06257 
024157 
067022 
024061 
127240 
046022 
024212 


A463 


EHALT 


DIB O0«.MTA 
LOA 1+IBUFF 


SUB# 04+41+SZR 
EHALT 


MOV 1-2 
DIC 1,.MTA 
STA 1.4002 
CHECK 

3 


EHALT 


JSR ALOOP 
JMP ad.+1 
ASG 


37TRK LPC CHECK 


JSR ASETP1 
LOAD 
PATS-1 
WRITE 

102 

STATUS 

1 

EHALT 


@SPACE 
TMOONE 

400 

CLEAR 

LDA 1,.M2 
DOC 1+.MTA 
LDA 1-+IBUFF 
ACDOR 11 
DOB 14.MTA 
LOA 1-+CxX 
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sACLI=EXPECTED STATUS. ACC=8AD 
sJUST READ 4 CHAR REC IN TEST MOCE, 
s;TEST MODE IS THE ONLY ‘NEw 
7 VARIABLE 


sADOR REG WRONG! 
sACQO=ZACTUAL I 


ACL=CORRECT 


;DATA ERROR! 2 WOROS WERE WRITTEN 
$3 WOROS WERE READ, THE 3RO WORD IS 
s;CRC(LEFT) 

tTHIS TEST IS A GATE CHECK FOR THE 
3;CRC GENERATOR, OATA IS CHOSEN TO 
7PRODUCE ALL COMBINATIONS OF XDR 

30N EACH CRC BIT. THIS TEST CATCHES 
3; THE REMAINING OF THE CASES 

sNOT COVERED IN THE PREVIOUS TEST, 
sAC2=ADDR OF IBUFF 

sACi=BAD wORD 

sACO=GO0O0D WCRD 

sEXPECTED DATA IS 467141 


: 000200 
$ 063000 
tWRITE 2WD REC 
READ AND CHECK 
sSTATUS, READ AND 


;CHECK LPC 


sERROR IN WRITING, ACI=EXPECTED 
sSTATUS. ACO=SACTUAL, 
sRESTART 


02242 
02243 
02244 
02245 
02246 
02247 


02250 
02251 
02252 
02253 
02254 
02255 
02256 
02257 


02260 


02261 
02262 
022635 
02254 
02265 
02266 
02267 
02270 


02271 
02272 
02273 
02274 
02275 
02276 
02277 
02300 
02501 
02302 
02303 
02504 
02305 
02306 
02307 
023519 


Ns5122 
006272 
060400 
006271 
000001 
006244 


066422 
C30061 
151490 
151400 
045090 
006256 
CGau0s 
GCO06244 


006236 


006243 
666262 
003126 
G06277 
Codid2 
006271 
ococol 
Q06244 


006255 
006273 
000400 
006257 
C24i157 
067022 
C24061 
127240 
066022 
024212 
C65122 
006273 
0c0400 
006271 
Ooo0d1 
G05244 


A4X7s 


DOAS 19.MTA 


TMOONE 
400 
STATUS 
4 


EHALT 


JSR aLOOP 
t7TRK LPC CHECK 
JSR a@aSETP1 


LOAD 
PAT6<1 
WRITE 
102 
STATUS 
1 
EHALT 


BSPACE 

TMOONE 

400 
LEAR 


LOA 1,M2 
DOC 1+.MTA 
LOA 1,ISUFF 
ADOOR lel 
DOB 1leeMTA 
LDA 1.CX 
DOAS leeMTA 


TMOONE 
4090 
STATUS 
1 
EHALT 
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sACLT=EXPECTED STATUS. 
sACQ=ACTUAL, JUST READ Y CHAR 
sRECORD INTO ISUFF IN TEST 
sMODE. TEST MOCE IS THE 

sONLY THING NEW, 


sDATA OR 1 PC ERROR. 2 

:WOROS WRITTEN. 2 wWOROS RD, BACK 
sLPC ALL ZEROS, NEVER GETS READ 

(NO RPO). AC2 POINTS TO IBUFF 

tACi= BAD WORD 

sACO= GOOD WORD 

sEXPECTED DATA IS 000077 


+ 030077 
+ 000077 
wWRITE 2WD REC 
sREAD ANO CHECK 
sSTATUS. READ AND 


sCHECK LPC 


sERROR IN WRITING. ACI=EXPECTED 
tSTATUS. ACQ=ACTUAL, 
sRESTART 


SACLI=EXPECTED STATUS. 
SACOZACTUAL,. JUST READ & CHAR 


02311 
02312 
02313 
02314 
02315 
02316 
02317 
02320 


02321 


02522 
02323 
02324 
02325 
02326 
02327 
02330 
02331 


02532 
02333 
023354 
02355 
02336 
02337 
62340 
02341 
02342 
02343 


02344 


02345 
02346 
02347 
02350 
G2351 


02552 
02353 
C2354 
02355 


066422 
050061 
151400 
151400 
045000 
006256 
000003 
OV6244 


006236 


006243 
006262 
003131 
006277 
000102 
006271 
000001 
006244 


006255 
006273 
000400 


(006257 


024157 
067022 
024961 
127240 
056022 
024212 
065122 
006273 
000400 
006271 
000001 
006244 


0664%22 
030061 
151400 


151400 


A485 


DIC 14.MTA 
LDA 2eIBUFF 
INC 242 

INC 22 

STA 140,2 
CHECK 

3 

EHALT 


JSR aALOOP 


#7TRK LPC CHECK 


JSR ASETP1 
LOAD 
PAT7<1 
WRITE 

102 

STATUS 

1 

EHALT 


BSPACE 
TMDONE 

400 

CLEAR 

LOA 1.M2 
OOC 14.MTA 
LOA 1,IBUFF 
ADDOR 141 
DOB 1+.MTA 
LOA 1,4Cx 
DOAS 1¢.MTA 
TMOONE 


DIC 1e.MTA 
LOA 2eIBUFF 
INC 222 

INC 2e2 
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sRECORD INTO IBUFF IN TEST 
7MODE. TEST MOCE IS THE 
sONLY THING NEW. 


sDATA CR LPC ERROR. 2 

twOROS WRITTEN, 2 WORDS ROD, BACK 
sLPC ALL ZEROS.e NEVER GETS READ 
2(NO RPO). AC2 POINTS TO ISUFF 
sAC1=BAD WORD 

3ACO=GOO0D WORD 

sEXPECTED DATA IS 037400 


$ 037400 
+ 037400 
sWRITE 2WO REC 
sREAD AND CHECK 
sSTATUS. READ ANDO 
sCHECK LPC 


“$ERROR IN WRITING, ACI=EXPECTED - 


sSTATUS, 
tRESTART 


ACO=ACTUAL,. 


sACL=HEXPECTED STATUS. 
vACOSACTUAL, JUST READ 4 CHAR 
tRECORD INTO IBUFF IN TEST 
;MODE., TEST MOTE IS THE 

tCNLY THING NEw, 


02356 
02357 
023560 
02361 


02362 


02363 
02364 
02365 
02366 
02367 
023570 
02371 
023572 
02373 
02374 
02375 
02376 
0237 

02400 
02401 


02402 
02403 
02404 
02405 
02406 
02407 
02410 
02411 
02412 
02413 
02414 
02415 
02416 
02417 
02420 
02421 


02422 
02423 
02424 
92425 


045200 
006256 
000003 
006244 


OBE236 


006243 
034222 
030124 
1357405 
002227 
006262 
093137 
062230 
005262 
093134 
006277 
200302 
§96274 
Cv0001 
Ol6244 


096255 
006273 
000409 
096257 
C24157 
G67022 
924%061 
127240 
066022 
O242i2 
Oe&Si2e2 
065273 
000400 
006271 
100003 
006244 


066422 
0350061 
1353400 
2351400 


A4¥9,15 


A49.2: 


JSR @LOOP 


s7TRK LPC CHECK 


JSR ASETPL 
LDA 3+SwWTSV 
LDA 2,C200G6 
AND 243;SNR 
JUMP aATAGSL 
LOAD 

PAT9I~1 

JMP JIAY92 
LOAD 
PATS=1 
WRITE 

102 

STATUS 

1 

EHALT 


BSPACE 
TMOCNE 

4090 

CLEAR 

LOA 1,M2 
OOC 1ls.MTA 
LOA 1,IBUFF 
AODOR del 
JOB 1leeMTA 
LDA 1.Cx 
DOAS Le»MTA 
TMOONE 

400 

STATUS 
100003 
EHALT 


DiC 1+.MTA 
LDA 2-IBUFF 
INC 2,2 

INC 242 


. 3STATUS, 
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tDATA OR LPC ERROR, 

sWORDS WRITTEN, 2 WORDS RD, SACK 
tL PC ALL ZEROS, NEVER GETS READ 
3(NO RPO). AC2 POINTS TO IBUFF 
,ACI=S5AD WORD 

sACO=GO0D WORD 

sEXPECTED OATA IS 912452 


$ 012452 
+ 012452 
sWRITE 2WO REC 
sREAD AND CHECK 
iSTATUS. REACT AND 
;CHECK LPC 


tERROR IN WRITING, ACI=EXPECTEDO 
ACO=ACTUAL, 


sRESTART 


SACISEXPECTED STATUS. 
sACOSACTUAL. JUST READ % CHAR 
sRECOROD INTO IBUFF IN TEST 
s;MODE! TEST MODE IS THe 

tONL.Y THING NEW. 


T2426 
02427 
02430 
02431 


024352 


02433 
02434 
02435 
02436 
02457 
02440 


02441 
02442 
02443 
02444 
02445 
024%46 
02447 
02450 


02451 
02432 
02453 
02454 
02455 
02456 
02457 
02460 
02461 
02462 
02463 
02464 
02465 
02466 
02467 
02470 
02471 
02472 
02473 
02474 
02475 
02476 
02477 
025909 


045000 
C06256 
0c0003 
006244 


0062356 


006243 
006265 
006272 
047940 
900201 
0C6244 


020137 
G40145 
006276 
600102 
966272 
903720 
000001 
006244 


G14145 
000771 
006273 
0996400 
020137 
100400 
vEe3d22 
102409 
062022 
Cetiel2 
G24105 
1230090 
061122 
102400 
064422 
064422 
101404 
090775 
064422 
125205 
0G0772 
061422 
024137 
122414 


A50.2° 
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STA 1.4992 

CHECK 

3 

EHALT sDATA OR LPC ERROR, 3 
sWORDS WRITTEN. 2 WORDS4+LPC 
s;REAG BACK, £C2 POINTS TO IBUFF 
sAC1=BA0D wORD 
sACG=sG00D WORD 
sEXPECTED DATA I5 012452 

$ 012477 
$ 912477 

JSR aALOOP 

tSPACING CHECK. 

sOURING SPACING MANY I0 COMMANDS 
;(ISSUEG TO GENERATE NGISE,. 

JSR ASETPI sWRITE 500 2ewD REC, 

REwIND ;SPACEBACK 500 

TIME SCHECK CA 

20000, sSPACEBACK 1 AND 

201 ;CHECK FOR BOT 

EHALT ;NO BOTeTUR 20 SEC. 
tFOLLOWING REWIND 

LDA 0,0500 

STA ORECTR 

wRTNS 

102 

TIME 

2000. 

1 

EHALT 7NO TUR 1 SEC FOLLOWING 
sWRITE COMMAND 

DSZ RECTR 

JMP A50.1 

TMHOONE 

400 

LOA 0,D500 

NEG 020 

DOC O¢eMTA ;WC=500 

SUS 0,0 

DOB 01.MTA sADDR. REG=0 

LDA 04CX 

LDA 1,C4O 

AOD 1-0 

DOAS O+.MTA sSTART BACKSPACE 

SUB 0-90 

OIA 1leeMTA 

OIA 1a eo MTA 

INC O¢0eSZR 

JUMP oe5 

DIA leeMTA 


MOVR 1Lel1eSNC 
JMP ASO.2 
OI8 O4.MTA 
LOA 1,0500 
SUBR 1+6+SZ8 


02501 


02502 
02503 
02504 
02505 
02506 
02507 
025190 


02511 


02512 
02513 
02514 
02515 
02516 
02517 


02520 
02521 
02522 
62523 
02524 
02525 
C2526 
02527 


02530 
02551 
025352 
02533 
02534 
02535 
025356 
C2537 
02540 
02541 
C2542 
02545 
02544 
02545 
02546 
062547 
02550 
02551 
02552 
¢2553 
02554 


005244 


096255 
G64422 
125203 
000776 
020112 
107405 
006244 


006236 


O06245 
005245 
006272 
047040 
000201 
006244 


020137 
040145 
J065276 
090102 
006272 
003726 
gooool1 
CO6é244 


014145 
O00771 
905273 
090400 
020137 
100490 
063022 
162400 
062022 
020212 
924105 
123000 
061122 
102400 
065422 
065422 
101404 
000775 
064422 
125263 
009772 


A513 


47040 


A51.2:5 


; 


cHALT 


BSPACE 
DIA 


MOVR 1¢1sSNC 


JMP 
LOA 
AND 


1e+.MTA 


ere 
0.,C1i00 
OvleSNR 


EHALT 


JSR ALOOP 
3SPACING CHECK, 
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tADDRESS REG. WRONG, 
tSHOULD HAVE COUNTED $60 
sREC ON SACKSPACE, 
sACL=EXPECTED COUNT. ACO=ACTUAL 


tBACKSPACE 1 DID NOT PRODUCE 
:560T, ADCR REG COUNTED SOO. 
sWC REG WAS COUNTING FASTER 
;8AD wC REG, 


sDURING SPACING MANY IO COMMANDS ARE 


s;ISSUED TO GENERATE 
JSR aSETPIL 


REWIND 
TIME 
20000, 
201 
EHALT 


STA O,RECTR 


WRTNS 
102 
TIME 
20006 
i 
EHALT 


OSZ RECTR 


JMP 


A51i.1 


TMOONE 


G00 
LDA 
NEG 
DOC 
Sue 
DOB 
LDA 
LOA 
ADO 


0,0500 
0,0 
0+.MTA 
Ged 
Oe.MTA 
0,CX 
1.C40 
1-0 


DOAS 0+,.MTA 


SUB 
vIB 
DIB 
TNC 
JMP 
OIA 


0.0 

Le wMTA 

1+ MTA 

0.0+SZ2R 
Pe) 

Leo eMTA 


MOVR 442,3SNC 


JMP 


A51.2 


NOISE. 
tWRITE 500 
;SPACEBACK 
s;CHECK CA 
:SPACEBACK 
;CHECK FOR 
:NO BOT=TUR 20 SEC, 
tFOLLOWING REWIND 
LOA 0,0500 


1 ANO 


3NO TUR 1 SEC FOLLOWING 
;WRITE COMMAND 


swC=500 


;ADOR. REG=0 


tSTART BACKSPACE 


02555 
02556 
02557 
02560 


C2561 
02562 
02563 
02554 
02565 
02566 
02567 


02570 


02571 
02572 
02573 
02574 
92575 
02576 


02577 
02600 
02601 
02602 
02603 
02604 
02605 
02606 


02607 
92610 
02611 
02612 
02613 
02614 
02615 
02616 
02617 
02620 
02621 
02622 
02623 
02624 
02625 
92626 
02627 
92630 


061422 
024137 
122414 
006244 


006255 
054422 
125203 
QCO77%6 
020112 
107405 
005244 


006236 


006243 
095265 
006272 
047040 
dgoc201 
Goe244 


020137 
040145 
006276 
903162 
QC6272 
003720 


“Yyoocol 


G06244 


024145 
000771 
006273 
OCO400 
020137 
100400 
063022 
1924090 
062022 
020212 
024105 
123000 
061122 
102400 
066422 
O6E422 
191404 
o00775 


AS52s 


47040 


A52.1i$ 


AS2.2: 


OLB 0,,MTA 
LDA 1.0500 
SUB# 1,40+SZR 
EWHALT 


BSPACE 

DIA 1e MTA 
MOVR 141-eSNC 
JMP 2-2 

LOA 0,C0100 
AND 0¢1,SNR 
EHALT 


JSR aLOOP 
tSPACING CHECK. 
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Oi 
Oo. 


tADGRESS REG. WRONG, 
SHOULD HAVE COUNTED 500 
sREC ON BACKSPACE, 


sACL=ZEXPECTEO COUNT. ACO=ACTUAL 


s;BACKSPACE 1 OID NOT PRODUCE 
:80T. ADOR REG COUNTED 500, 
tWC REG WAS COUNTING FASTER 

;BAD wC REG. 


tDURING SPACIND MANY i0 COMMANDS ARE 
sISSUED TO GENERATE NOISE. 


JSR ASETPI 
REwIND 
TIME 
20000. 

201 

EHALT 


LDA 0.0500 
STA OeRECTR 
WRITNS 

102 

TIME 

2000-6 


1 
EHALT 


OSZ RECTR 
JMP AS2.1 
TMDONE 

400 
LDA 
NEG 
DOC 
SUB 
008 
LDA 


0,0500 
0.0 

O+ MTA 
0,0 

Oe eMTA 
0,CX 
LOA 1+C40 
ADD 12:9 
DOAS 0.4.MTA 
SUB 0+¢0 

DIC Le eMTA 
DIC laeMTA 
INC 0¢0+S2ZR 
JMP 73 


sWwRITE SEG 2wWwO REG, 
;SPACEBACK 500 
;CHECK CA 
sSPACEBACK 1 AND 
s;CHECK FOR BOT 

3NO BOT*TUR 20 SEC, 
sFOLLOWING REWIND 


sNO TUR 1 SEC FOLLOWING 
tWRITE COMMAND 


+wC=500 


;ADOR.,. REG=0 


:START BACKSPACE 


02631 
02632 
02633 

02634 
02635 
02636 
02637 


02640 
0264] 
02642 
02643 
02644 
02645 
02646 


02647 


02650 
02651 
02652 
02653 
02654 
02655 


0265é 
02657 
02660 
02661 
02662 
02663 
02664 
02665 


02666 
02667 
62670 
02671 
02672 
02673 
02674 
02675 
02676 
02677 
02700 
02701 
02702 
C2705 
02704 


NS4422 
125203 
000772 
061422 
024137 
122414 
006244 


ce6é255 
664422 
125203 
090776 
C20112 
107435 
006244 


006236 


006243 
006265 
006272 
047040 
900201 
006244 


020137 
C4¥O145 
C06276 


096102 


905272 
0037290 
O0o90c01 
006244 


024145 
000771 
026273 
000400 
020127 
160400 
063922 
162400 
062022 
020212 
024195 
123000 
961122 
21024900 
059322 


A3S3.25 
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DIA 14.MTA 

MOVR 1e1,SNC 

JMP AS2,.2 

UIB O¢.MTA 

LDA 1,0500 

SUBH 1-0+SZR 

EHALT sADORESS REG, RONG, 
;SHOULD HAVE CCUNTED 500 
s;REC CN SACKSPACE, 
sACIT=EXPECTED COUNT, ACO=ACTUAL 

BSPACE 

DIA 14.MTA 

MOVR LelsSNC 

JMP 2-2 

LOA 0,C100 

AND Oel.SNR 

EHALT +BACKSPACE 141 OI0 NOT PRODUCE 
sBOT. ADDR REG COUNTED 500. 
sw#C REG WAS CCUNTING FASTER 

; 3BAD wC REG, . 
JSR @LOOP 


:SPACING CHECKe 
SDURING SPACING MANY I0 COMMANOS ARE 
tISSUED TO GENERATE NOISE, 
JSR @SETPL +WRITE 500 
REWIND + SPACEBACK 
TIME sCHECK CA 
20090. ;SPACEBACK 1 AND 
201 7;CHECK FOR 80T 
EHALT t~NO BOT-TUR 20 SEC, 
s;FOLLOWING REWIND 


2WD REC, 
500 


LDA 00,0500 
STA O.RECTR 
WRINS 

102 

TIME 

20co0. 

i 

EHALT 3NO TUR 1 SEC FOLLOWING 
i~WRITE COMMAND 

OSZ RECTR 

JMP AS3.1 

TMOONE 

400 
LOA 
NEG 
DOC 
SUB 
006 
LDA 


0,0500 
0.0 

0+ MTA 
0.0 
02eMTA 
0.CxX 
LOA 1,C4O 
AOD 1,0 
DCAS 0+.MTA 
SUB 0-0 
NIOP .MTA 


swC=500 


s;ADDR. REG=0 


3START BACKSPACE 


02705 
02706 
02707 
02710 
02711 
02712 
02713 
02714 
02715 
02716 


02717 
92720 
02721 
02722 
02723 
02724 
02725 


02726 


02727 
02730 
02731 
02732 
02733 
02724 
92735 
02736 
02737 
02740 
02741 
C2742 
02743 
02744 
02745 
02746 
02747 
02750 
02751 
02752 
02753 
02754 
02755 
02756 
02757 
02760 
02761 
02762 
02763 
02764 


060322 
101404 
00G775 
064425 
125205 
000772 
061422 
024137 
122414 
006244 


066255 
064422 
125203 
000775 
020112 
LO7405 
C06244 


006236 


006254 
002232 
020522 
040447 
102400 
040444 
006260 
006251 
G37477 
020060 
251490 
0490206 
022436 
101095 
009435 
042020 
102409 
024156 
042020 
125404 
000776 
006243 
020060 
062022 
G€20166 
063222 
020116 
024212 
123000 
G6él1122 


A545 


AS4,.15 


NIOP 
INC 
JUMP 
DIA 


MOVR 1eieSNC 


JMP 
DI8 
LDA 


SUEH 1,407SZR 


EHAL 


BSPA 
DIA 
MOVR 
JMP 
LDA 
ANDO 
CHAL 


JSR 


oMTA 
0+0eSZR 
end 
1.4.MTA 


A53.2 
0+eMTA 
1,0500 


T 


CE 
iaaeMTA 

LeleSNC 
2-2 
0,C100 
O+ieSNR 
T 


Be 
aLOOP 
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tADORESS REG. WRONG, 
sSHOULD HAVE CCUNTED 500 
tREC ON BACKSPACE, 


sACL=EXPECTED COUNT. ACO=ACTUAL 


s;B8ACKSPACE 1 CIO NOT FROODUCE 
3;BOT, ADOR REG COUNTED 500. 
swO REG WAS COUNTING FASTER 
;BAD wC REG. 


tLONGITUDINAL PARITY CHECK {NRZ ONLY) 


BYPA 
JMP 
LOA 
STA 
SUB 
STA 
ERAS 
GEN 
3747 
LOA 
INC 
STA 
LOA 
MOV 
JMP 
STA 
SUB 
LOA 
STA 
INC 
JMP 
JSR 
LOA 
BOB 
LDA 
DOCC 
LCA 
LDA 
ADD 
DOAS 


SSPE 
@aITA5s5 
OwLSTRT 
0,LPOIT 
0:0 
0,»RBCT 
£ 


7 
0,O0BUFF 
0-0 
0+«IDX0 
OeaLPOIT 
0+0¢SNR 
CKED 
0,dI0X0 
0-0 
1400 
0,@aIDX0 
1+i*S2dR 
ene 
@aSETP1 
0,OBUFF 
Oe eMTA 
0.4409 
Oe eMTA 
0.C150 
1.Cx 
1.0 
O+1eMTA 


s;CAUSE LONG PARITY ERROR 
3IN 2 TRK PAIRS 
iCHECK PARITY STATUS 


02765 
02766 
02767 
02770 
02771 
02772 
02773 


02774 
02775 
02776 
02777 
030060 
03001 
03002 
03003 
03004 
03005 
03006 
03007 
03016 
03011 
03012 
63013 
03014 
03015 
03616 
03017 
035020 
03021 
03022 
03023 
03024 
03025 
03026 
03027 
03030 
03031 
03032 
030353 
03034 
03035 
03036 
03037 
035046 
03041 
93042 
03043 


906273 
001400 
0304114 
060422 
024124 
123415 
006244 


006236 
020404 
0190492 
O80737 
0uc0nOd 
00n000 
060422 
024112 
030775 
123405 
000464 
022772 
1017004 
000735 
006265 
006271 
100201 
000776 
020222 
924123 
197464 
600417 
026250 
006265 
006271 
140205 
200403 
006251 
DOI147 
OS2677 
006265 
006271 
100201 
000774 
006241 
006245 
006251 
002143 
034045 
0124903 


RBCTS: 
LPOIT: 
CKEDS 


A535; 


ETST3: 


TMODONE 

1400 

LOA 2,RBCT 
DIA O¢.MTA 
LOA 1,C2000 
AND# 140,SNR 
EHALT 


aLOOP 
LPOIT 
RBCT 
AS4 


OIA 
LDA 
IS2 
AND 
JMP 
LOA 


Ow eMTA 
12C100 
LPOIT 
1+¢06SNR 
0 +4 
O,aALPOIT 
MOY 0+¢0¢S2ZR 
JMP A541 
REwIND 
STATUS 
1060201 

JMP 072 

LOA OvSwTSv 
LOA 1,C100G 
ANO 0+1.+SZ2R 
JMP RSTP 
JSR aAaPINwh 
REWIND 
STATUS 
100205 

JMP 243 

JSR aAIMESS 
PRB 

IORST 
REWIND 
STATUS 
100201 

JMP <4 

JSR @APDOLTA 
JSR APECTTA 
JSR aIMESS 
MCYC 

LDA 3,45 
ISZ 343 


3NOQ PARITY ERROR, 
sINDICATES 
sCAUSE ERROR, 


70=RB2-2 
,1=RE5-P 
,2=KRB4-P 
:3=RB5<2P 
34-R66-P 
$5=RB7-P 


tRING IN 
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# IN AC2 
TRACKS SHOULD 
(SEE SELOW) 
O=RB2-3 LH=RBO-P 
7=RB3-4 15=RBL=-P 
LO=KB4<25 16=KBO-1 
L1=RB5S-6 17=SRB0-2 
l2=Reé-7 20=R61-2 
13=RB7-2 


4HICH 


03044 
03045 
O304E 
05047 
03050 
03051 
03052 
03053 


03054 
03055 
03056 
03057 
03060 
035061 
03062 
03063 
03064 
03065 
03066 
03067 
03070 


03071 
03072 
02073 
03074 
03075 
03076 
03077 


03100 
03101 
93102 
03103 
03104 
03105 
03106 
03107 


03119 
03111 
03112 
(03113 
03114 
03115 
03116 
93117 
03120 
03121 
03122 
03123 
03124 
93125 


Oco401 
096265 
006271 
100201 
000776 
002401 
000411 
003054 


004090 
010080 
029000 
o6c4a0 
902009 
992000 
039600 
9143900 
ctso00 
093000 
G01400 
0006090 
006050 


100000 
0400600 
140000 
120090 
869000 
696090 
G00099 


020101 
0190262 
OU4404 
CUS010 
090000 
000202 
100429 
020041 


000200 
eoo200 
153727 
177474 
136074 
112327 

052652 
076232 
037047 

167141 
000206 
063550 

00c077 
900077 


BTOF Ss 


JUMP +1 


REWIND 
STATUS 
106201 


JMpP ere 
JMP adel 


A0 
LST793 


s;LONGITUDINAL PARITY 
37°39 TRACK 


4000 
10000 
26000 
400 
1000 
2000 
50000 
14000 
6000 
5000 
1400 
600 

0 


39 TRACK ONLY 


i100000 
40060 
140009 
120000 
60000 
0 

G 


$BAG TAPE STATUS WRITE BUFFER 


020101 
010202 
004404 
003C19 
000000 
000202 
100420 
020041 


3CRC CHECK WRITE 


000200 
c00200 


153726 : 


177474 
136074 
112327 
052652 


076232. 


+RB2-P 
13<P 
34—=P 
35-P 
16=P 
17#P 
t2<3 
3 3=4 
14=5 
35-6 
16-7 
i7ee 


ae #~0@ 278 20 6 
-F$ OOF © 

9 ¢ @ 6 
Mo ye UU 


31 
i2 
ee) 
3:4 
33 
36 
37 


38 
BUFFERS 


QATA LIST 


03126 
03127 
03130 
03131 
03132 
03133 
03134 
03135 
031356 
03137 
03140 
03141 
03142 
03143 
03144 
03145 
03146 
03147 
03150 
03151 
03152 
03153 
03154 
03155 
03156 
03157 
03160 
03161 
05162 


03163 
03165 
035165 
03166 
03167 
03170 
03171 
03172 
03173 
03174 
03175 
93176 
03177 
03200 
03201 
03202 
03205 
03204 
063205 
05206 
03207 
03210 
03211 
03212 
03213 


C0c3077 
037400 
037490 
037400 
612452 
012452 
012452 
012452 
012477 
012425 
012452 
012477 
OiNns77 
005215 
0354703 
146303 
000305 
005215 
052520 
120324 
144722 
043516 
G41240 
241501 
420113 
047317 
152249 
050101 
000305 


654521 
262449 
024045 
041403 
021400 
191005 
000403 
035401 
000403 
062077 
O74477 
OS4222 
161069 
024100 
050191 
137400 
173000 
Q50211 
054212 
034105 
173000 
050213 
059214 
036103 
163400 


PAT6$ 


PATT? 


PATS: 


PATS: 


MCYC: 
CY 
Ck 
EY 
PRBS 
PU 
T 
RI 
NG 

B 
Ac 
K 
ON 

T 
AP 
Ee! 


77 
037400 
037400 
037490 
012452 
012452 
012452 
012452 
12477 


12425 — 


012452 


12477 
10477 
eTXTE 


e TXT 


Ec 


PAGE 


1<15><12> 


1<215><12> 


+ MTA DIAGNOSTIC INITIALIZATION 
INITIALSSTA 3,IRET 


HENAsS 


SuBO 
LOA 
STA 
LOA 
MOV 
JMP 
LDA 
JMP 


- HALT 


READ 
STA 
MOV 
LOA 


0-0 
3045 
0343 
0+0e3 


0+0+SNR 


HENA 
Seied 
HENA+2 


S 3 


3«SWTSYV 


3.0 
1,C7 
2+C19 
1.3 
392 
2eCix 
34CX 
3+C40 
332 
2eC5x 
2.CC5xX 
2.C22 
349 


me 


$SET SWITCHES AND CONTINUE 


sAC3=SUNITH 
AC2=UNIT + 10 
;STORE UNIT # + 10 


ACO=40 OR 909 


Gi 


03214 
03215 


03216 
03217 
03220 
03221 
03222 
03223 
05224 
03225 
03226 
02227 
03230 
03231 
03232 
03253 
03234 
03235 
03236 


03237 
03240 
03241 
03242 
C3243 
03244 
03245 
03246 
G32%7 
03250 
93251 
03252 
03253 
03254 
03255 
93256 
03257 
03260 
03261 
03262 
03263 
03264 
03265 
03266 
03257 
03270 
05271 
03272 
03273 
05274 
C2275 
G5276 
05277 


L430CC 
040221 


030955 
021000 
024146 
123400 
026147 
106424 
OG0407 
G21008 
024159 
1234056 
0242274 
123000 
041009 
152490 
020056 
12414 
000761 


062677 
020170 
662077 
020000 
G4O442 
620001 
C4Quad 
026237 
049002 
102440 
126449 
065111 
953511 
Cog?77 
oso2li 
069177 
C6S111 
125400 
000777 
131200 
155100 
054045 
035402 
175004 
147000 
101100 
030171 
ous240 
124490 
125400 
125406 
000401 
020406 


ae 


GMORs 


DEVI: 


PAGE 
ADD 2,06 
STA O,CEVICE 
MOOIFY ALL ,MTA INSTRUCTIONS 
LOA 2-eFIRST 
LDA. 00022 
LOA 140150077 
AND 1,0 
LOA 1,aPCDOCM 
SUB#H 0+1,-S2ZR 
JMP DEVI 
LOA O040e2 
LOA 1-C177700 
ANG 1,0 
LOA 1,DEVICE 
ADD 1,0 
STA 0.632 
INC 22 
LOA O-CEND 
SUBH 0+2,+5ZR 
JUMP GMOR 


NOT MTA 


sCALCULATE DOILLY# 
te(R ITRS OF INCeJMP LOOP IN 1 MS =2) 


NICC TTO 


DILLI:s 


IORST 

LOA O.«MSKTO 
MSKO OG 

LDA 0406 

STA 0,DILLA 
LDA Gel 

STA 0,DILL8B 
LOA OePDILL 
STA Gel 
SUBO 0,0 
SUaC lel 
DOAS 1+TTO 
SKPBZ TTO 
JMP eel 


INTEN 
DOAS 1i+TT9 


eel 
MOVR 1.2 
MOVL 243 
LOA 3445 
LDA 342e3 
MOV 343+SZ2R 
ADD 241 
MOVL 0-0 
LOA 2-DLi100 
JSR aPOIVG 
NEG lel 

INC lel 

IAC 1Lel 

JMP . +1. 
LOA OeDILLA 


42 


C3300 
03301 
03302 
03303 
03304 
03305 
03306 


03307 
03310 
03511 
03312 
035153 
03314 
03315 
03516 
03517 
03320 
03321 
03222 
03525 
03324 
03325 
03326 
03327 
03330 
03331 
03332 
03333 
03334 
03335 


03336 
03337 
03346 
C3541 


03342 
03343 
03344 
03345 
03346 
03347 
C3350 


C€40900 
020495 
040001 
0C2403 
000000 
000000 
000000 


OS4447 
024060 
044022 
0149022 
024061 
044923 
01%023 
031406 
G30436 
634132 
030222 
020125 
113400 
022022 
21519005 
1634900 
G2S023 
106414 
000406 
014423 
oooT74 
026623 
125005 


010420 
910417 
030061 
O824is 


020061 
126000 
123000 
040022 
020112 
040406 
102450 


IRET: 
DILLAs 
OILLB* 


XCHK $ 


XCHK,: 


PASE 
0,0 
0,O0ILLB 
Oeol 
@IRET 


0 
s;COMPARE IBUFF WITH CSUFF 
$ 
; 


CHECK 
; ARG 
3# WORDS IS IN ARG FOLLOWING CAL 
sCOMPARE WORG FOR WORD 
;WORD N+1 IN IGUFF MUST BE ZERO 
sIF ERRCR KETURY TOGO CALL +2 
OTHERWISE CALL+3 
sEXIT WITH Aaci=3,a5 
sACO=GOOD WORD 
tAC2=ADOR. OF I3UFF 
STA 3yRCHK 
LOA 1,0B8UFF 
STA 1-IDXx2 
DSZ I0Xx2 
LDA 1,IB65UFF 
STA 1,10X3 
DSZ IDX3 
LDA 2+043 
STA 2eCNTR 
LOA 3,C37477 
LDA 2eSwTSv 
LDA 04C2100 
AND Oe2 
LDA 0+aIDXKe2 
MOV 2e2eSNR 
AND 3.0 
LOA 1LeaAIDXS 
SUB#H 041¢SZR 
JMP LEAV 
98Z CNTR 
JMP XCHK, 
LOA 1ledIDOXS 
MGV JeleSNR 


wORD 


iGET ARG 


+;7TRK DATA MASK 


sAC2=0 IF 7 TRK 


+MASK IF 7TRK 


;WORD FOLLOWING LAST 
;MUST BE ZERO 
RCHK 

RCHK 

LDA 2eISQUFF 

JMP @RCHK 

SCLEAR INPUT BUFFER TO ZEROS 
LDA O,IBUFF 

ADC isl 

ADD 1,0 

STA 0+I10X2 

LOA 0,C100 

STA OeCNTR 

SUB 0,90 


T$Z 
[Sz 


435 


03351 
03352 
03353 
035354 
03355 
03356 


03357 
03360 
03361 
033562 
03363 
033564 
03365 


03366 
03367 
03370 


03371 
03372 
03373 
0353574 
03375 
03376 
03377 
03400 
03401 
03402 
03403 


03404 
03405 
03406 
03407 
03410 
03411 
03412 


03413 
03414 
03415 
03416 
03417 
03420 
03421 
03422 
03423 
03424 
03425 
03426 
03427 
03430 


042022 
014403 
QC0776 
001400 
000000 
0900000 


024104 
030212 
147000 
1352008 
C735022 
Os5122 
001400 


G24eil 
965122 
001400 


054412 
N924211 
162400 
040225 
065122 
006272 
0200090 
0g0201 
O90491 
002402 
o00c00 


9024212 
§30105 
1479090 
102000 
063022 
065122 
VI1400 


054415 
O24212 
020197 
054222 
174009 
020112 
1174060 
175009 
147060 
Os51l2e2 
CQ06273 
003000 
002401 
00c000 


CNTR: 
RCH $ 


; 
XSPC3 


XRWS8 


RRWS: 


ABSP & 


XWEOFs 


RWEOF $ 


STA 
DSZ 
JP 
JP 
tf) 

0 

200 
LDA 
LCA 
ADD 
ADC 
DGC 


DOAS 14.MTA 


JMP 


OsalDXe2 


CNTR 
e"2 
0,3 


A SPACE FCRWARD 


1+C30 
2+Cx 
2el 
292 
24e4hTA 


0,3 


twCS)1 


700 IT 


sREWIND SUBROUTINE 


LDA 


DOAS leeMTA 


JMP 


sREWIND FOLLOWED BY A 5 SEC STALL 


STA 
LDA 
SUB 
STA 


ODOAS 1+.MTA 


TIME 
2009 
201 
JMP 
JMP 
0 


1-Cix 
0.3 
3eRRWS 
1,Cix 
0.0 
O,ITLP 
0 


e+1 
aRRWS 


s;BACKSPACE ROUTINE 


LDA 
LDA 
ADO 
ADC 
Doc 


DOQAS 1¢.MTA 


JMP 
twRI 
STA 
LDA 
LDA 
LOA 
com 
LDA 
AND 
ADD 
ADO 


DOAS LeeMTA 


1.CX 
2+C40 
2el 
0-90 
Oe eMTA 


0.3 
TE EOF 


3SeRwEOF 


1+Cx 
2+C60 


3eSwiTSVv 


343 
0,.C100 
013 
392 
2el 


TMOONE | 


3000 


JMP ARWEOF 


9 


sLOAO OBUFF wIT4 3 WORDS, 


PAGS 


44 


03431 
03432 
03433 
03434 
03435 
03436 
03437 
03440 
03441 
03442 
03443 
03444 
03445 
03446 
03447 
03450 
03451 
03452 


03453 
03454 
03455 
03456 
03457 
03460 
03461 
03462 
03463 
03464 
03465 
03466 
03467 
03470 
03471 
03472 
03473 
03474 
03475 


03476 
03477 
03500 
03501 
03502 
03503 
03504 


031400 
650023 
030060 
N50024 
014024 
102000 
959222 
024120 
1334065 
0201352 
024160 
C32023 
113400 
052024 
125404 
000774 
175400 
C0i400 


034422 
010621 
9314900 
102090 
U24222 


034125 


167405 
020132 
113400 
024060 
044026 
014029 
024165 
044215 
C32020 
016215 
000776 
002401 
VBOODS 


054406 
006300 
000070 
C20212 
061022 
CO2401 
629900 


XLD? 


XGEN? 


ae @¢ ae 


PAGE 
LOAD 
ARG 


tARGUMENT=ADOR OF 3 WORD FIELD 


LDA 
STA 
LDA 
STA 
0$2 
ADC 
LDA 
LDA 
ANO 
LDA 
LOA 
LOA 
ANO 
STA 
INC 
JMP 
INC 
JMP 


2+0e3 
2+,I10x3 
2,GBUFF 
2,I0X4 
IOX4 
0+0 
2eSwTSv 
1,€C2100 
1:2+eSNR 
0.C37477 
1,M3 
2,a10X3 
0r2 
2¢aIDX4 
141,+S2R 
224 

343 

0.3 


GENERATE ARGUMENT OATA INTO OBUFF 
tALWAYS GENERATE 64 wORDS ALL SAME 


i 

; 

‘ 

3 
STA 
{Sz 
LOA 
ADC 
LOA 
LDA 
AND 
LDA 
AND 
LDA 
STA 
DS2 
LDA 
STA 
STA 
TSZz 
JMP 
JMP 
0 
tWAIT 50MS THEN 
STA 3¢RSF1 

WAIT 

2csOMS 

LOA C,.CX 

DOA 04.MTA 

JMP ARSE 

e) 


SaRGEN 
RGEN 
2+0.3 
0.0 
1,SWTSV 
3,C2100 
3SaleSNk 
0,C37477 
Ore 
1,O0BUFF 
1,IDX0 
IDXO 
144100 
1.CTR 
2.<aIDX0 
CTR 

e-2 
ARGEN 


GEN 
ARG 


7;GET OATA WORD 


3SET TROD 


sLOAD 64 COUNTER 


SELECT UNIT 


$3 


03505 
03506 
03507 


03510 
03511 
03512 
03513 
03514 
03515 
03516 
03517 
03520 
03521 
03522 
03523 
03524 
03525 
03526 
C3527 
03530 
05531 
03532 
03553 
03534 
03535 
03536 
03537 
03540 
03541 
03542 
035543 
03544 
03545 
035546 
03547 
03550 
03551 
03552 


03553 
03554 


102000 
040444 
000403 


102400 
040441 
054437 
010436 
03324006 
020111 
113400 
150406 
050217 
031400 
102406 
isiite 
020112 
Ge42l2 
123000 
040229 
Oz90131 
143400 
024117 
930217 
073022 
g50C61 
072022 
030220 
071122 
036411 
151004 
002406 
006275 
003000 
122404 
000764 
002401 
900000 
000000 


° 


102000 
O4 044% 


XRONS: 


XRO: 


XkDe15 


RROD: 
ROSwWs 


XWNS 3 


PAGE 
sREAD NCO STALL {(REODONS) 
tJUST LIKE (READ) EXCEPT THAT ONLY 
3;ONE RECORD IS 2EAD AND A RETURN 
sIS EXECUTED IMMEDIATELY. 
ADC 0:0 
STA O«ROSW 
JMP XRD+2 
sREAD SUBROUTIN= 
sARGUMENT FOLLOWING CALL SPECIFIES 
s$# WORDS. AND PARITY TYPE 
3BITS 10-15=wCRDS @IT O= 1 FOR EVEN 
IBITS 4e9=RECORDS 0 FOR OD 
3200 MS GELAY BETWEEN EACH READ, 
sNO STATUS,BUSY,OR DONE CHECKING} 
SUB 00 
STA O«eRCSW 
STA 3+4RRO 
TSZ RRO 
LOA 2403 
LDA 0+C77 
ANDO Ge2 
NEG 232 
STA 2eWOCNT 
LDA 21093 
SUB 6.0 
MOVLA 2e29SZC 
LOA 0,C1i00 
LOA 1,CX 
ADO 1;0 
STA O-eINST 
LDA 0-C7700 
ANC 2,0 
LBA 14C€1C0 
LOA 22WOCNT 
DGC 2+.,MTA 
LOA 2IBUFF 
DOB 2eeMTA 
LOA 2eINST 
DOAS 241-MTA H 
LOA 2eROSW H 
MOV 202eSZR 
JMP aRRD 
TMOONE 
3909 
SUB 1+0.+S2R 
JMP XRO.1 
JMP aRRD 
0 
0 
tWRITE WO STALL (WRTINS) 
tJUST LIKE ‘wRiTe) EXCEPT THAT ONLY 
ONE RECORD IS WRITTEN AND RETURN 
IS EXECUTED IMMEDIATELY 
ADC 0¢9 
STA OeSwTCH 


sSET SWITCH 


:SAVE WORD COUNT 
+SKIP IF O00 PAR 
sACQ=READ INST, 


sACO=H#RECX100 
7AC1=100 


ST4aT READ 
CHECK SwITCH 


03555 


03556 
03557 
03560 
03561 
03552 
03563 
03564 
03565 
03556 
03567 
093570 
03571 
03572 
03573 
03574 
03575 
03576 
03577 
03600 
03601 
03652 
03603 
03604 
03655 
03606 
03607 
03610 
03611 
03612 
03613 
03614 
03615 
05616 
63617 
03620 


03621 
03622 
05623 
03624 
03625 
03626 
03627 
03620 
03631 


009403 


102400 
040441 
GS4437 
010436 
031400 
029111 
113460 
156490 
C50217 
031400 
102460 
AS11i2 
020112 
024213 
1235900 
040220 
020731 
143400 
v2411e 
630217 
975222 
C30050 
072022 
030229 
8721122 
639411 
152004 
Gu2406 
0046273 
053600 
122404 
060764 
092401 
0090000 
099000 


020212 
CS44C7 
024110 
123006 
061122 
VO6273 
003000 
002401 
009000 


XWRT S$ 


XWRT es 


RWRT? 
SwICHi 


XERASs 


XERAR 


PAGE 
JMP XWRT+2 
tWRITE SUBROUTINE 
sARGUMENT FOLLOWING CALL SPECIFIES 
tTHRECORDS AND SOROSe AND PARITY. 
$BITS16-+15=4wWwORDS BIF 0 = 1 FOR EVEN. 
IBITS 4-O0=#RECORCS G FOR ODD 
3206 MS DELAY BETWEEN WRITES 
sNG STATUS, BUSY ,OCNE, CHECKING] 
SUE 0,0 
STA QeSwTCH 
STA 3 RwRT 
ISZ RwRT 
LDA 2:03 
LOA 0,.C77 
AND 0.2 
NEG 22 
STA 2sWOCNT 
LOA 24003 
SUS 0:0 
MOVL# 2+2,S2C 
LOA 0,C100 
LOA 1-C5x 
ADD 1,0 
STA OsINST 
LOA 0.C7700 
AND 2.0 
LDA 1-C100 
LOA 2sWOCNT 
DOCC 24.MTA 
LDA 2,O0BUFF 
DOB 2+.MTA 
LOA 2eINST 
DOAS 2¢.MTA 
LDA 2eSwTCH 
MOV 2+2¢SZR 
JMP aRWRT 
TMOONE 
3000 
SUB 140+¢SZR 
JMP XWRT. 
JMP ARWRT 
0 
0 
SPHASE ROUTINE 
LOA 0.CX 
STA 3¢XERAR 
LOA 14070 
ADD 1-0 
DOAS 04eMTA 
TMCOONE 
3000 
JUMP a@XERAR 
0 
;CHECK STATUS FSR TUR AND ERASE, 
sACODUNIT BEINGS SELECTED, 


+SAVE WORD COUNT 


;SKIP IF QOD PAR 


tSAVE INST 


tAC=~HRFCX100 


sSET we 
sSET CA 


tSTART WRITE 
3CHECK SwITCH 


47 


03632 
03633 
03634 
03635 
03536 
03637 
93640 
03641 
03642 
03643 
03644 
03645 
03646 
03647 
03650 
03651 
03652 
03653 
03654 
03655 
05656 
03657 
03660 


03661 
03662 
03663 
03664 
03565 
03666 
03667 
03670 
03671 
03672 
03673 
03674 
03675 
03676 
03677 
037090 


054426 
034222 
030130 
173405 
000403 
024075 
000402 
024100 
123400 
1374906 
162415 
009407 
126520 
069422 
123415 
019407 
950210 
002405 
006271 
100201 
000774 
090772 
000000 


054417 
044415 
C24216 
037400 
174400 
131009 
vo9401 
151404 
090777 
175404 
o00773 
024403 
034403 
0014901 
00N000 
0900000 


PAGE 


tRETURN4+1 IF ERROR 


CSTATsS STA 3,CSTAR 
LOA 3,SWTSV 
LDA 2+C4K 
AND 312 SNR ;LOOK FOR 2 ROY UNITS 
JMP 243 :IF Sw4 TRUE 
LOA 1,C3 
JMP +2 
LOA 1,C7 
AND 1-0 tACO=ACTUAL UNIT BEING SEL, 
AND 1,3 sACO=UNIT IN SwR 
SUB# 34+0¢SNR 
JMP ON ;TUR SHOULD BE ON 
SUBZL Jel ;UNIT NOT SEL, 
DIA 0O4.MTA 
ANO#H 14¢0 SNR sCORRECT STATUS = 0 
OKRETs IS2Z CSTAR >OK+ RETURN+2 
LDA 29X70 tX7OSUNITK+70 
JMP aACSTAR 
ON: STATUS 
100201 
JMP OKRET+1 SERRORe ACI=GCOD STAT. 
JMP OKRET H ACO=8AD 
CSTARs 0 
;DELAY SUBROUTINE . 
t,ARGUMEST FOLLOWING CALL IS ADORESS 
OF DELAY CONSTANT, 
sDELAY IN INCREYENTS IF 14S 
sAC2&3 ARE USED 
sOVERHEAD; NOVA. SUPER+ 1200, 800, SC1 MICROSEC, 
T46el"2e0/MS1 15,21 24651 14,5°,6/MS1 11.4-,35/MS 
XwTs STA 3eROLAY 
STA leXWTAL 
LDA 1eDILLY s-(4 ITRS LOOP-2) 
LOA 3+6d0¢3 
NEG 343 
MOV 1:2 s;THESE TwO INSTRUCTICNS 
JMP 41 ;TAKE TIME OF ONE ITERATION 
INC 242-¢S2R 
JMP ol 
INC 343¢S2ZR :THESE TwO TAKE 
JMP 295 sTIME CF ONE ITERATION 
LDA 1eXwWwTAL 
LOA 3sROLAY 
JMP 1,43 
XwTA1s 0 sTEMP SAVE FOR AC1 
RDLAY = v sRETURN ADDR 
4 STATUS 
3 ARG 
COMBINE ARGUMEYT STATUS WITH SWR 
tSTATUS AND CHECK AGAINST ACTUAL, 


TRETURN4+2 IF STATUS MATCH, 
sEXIT WITH AC 


3 


HSSXPECTED STATUS « 


+1 OTHERWISE 
ACGSACTUAL 


&& 


03701 
03702 
03703 
C3704 
03705 
03706 
03707 
03710 
03711 
03712 
03713 
03714 
93715 
03716 
03717 
03720 
03721 
03722 
03723 
03724 
03725 
03726 
03727 
03730 
03731 
03732 
03733 
03734 
03735 
03736 
03737 
03740 
O3741 
03742 
03743 
03744 
03745 
03746 
03747 
03750 
03751 
03752 
03753 
03754 
03755 
03756 
03757 


02769 
03761 
63762 


12/78 


GS4456 
018455 
625460 
034222 
030112 
1274500 
167009 
034222 
030117 
157405 
OCu4+e3 
034130 
167c00 
030252 
034446 
126404 
000413 
030210 
034222 
172409 
0341609 
173405 
000465 
030139 
153415 
LS7S01 
146400 
0509422 
034122 
0390222 


157495 © 


00C414 
034101 
117405 
C0G411 
152400 
034155 
117405 
030156 
034154 
157000 
174000 
163400 
196415 
010402 
002401 
000900 


006247 
004414 
00625% 


XSTAT= 


XSTAis 


XSTT.°s 


STATR: 


LOA 


AND# 1¢2,SNR 


ADD 
SUB 
OLA 


3+STATR 
STATR 
1:03 

3 eSwTSV 
2+C100 
23 

Sel 
3,SWTSV 
2.C200 
2e3s9SNR 
e+3 

3 yC4K 
391 
2¢ONLOC 
3+STATR 
2+3+SZR 
XSTAL 
2eX7C 
3»SwTSv 
392 
3+C7 
3e2aSNR 
XSTA1 
2+C4K 


2sileSKP 
2el 
0+.MTA 


LDA. 3, C400 


LDA 
AND 
UMP 
LDA 
AND 
JMP 
SUB 
LDA 
ANO 
LDA 
LOA 
ADD 
CoM 
ANO 


SUBH 01¢+SNR 


IS2 
UMP 
0 


2, SNTSVs 


2,3, 9NR 
XSTT. 
3+C10 
Oe3eSNR 
XSTT,. 
2:2 
3205164 
O+3eSNR 
2eC1iM 
3.02010 
2.3 

343 

3-0 


STATR 
ASTATR 


sOATA LATE TEST 
sCONTINUALLY WRITE 4K RECOROS 
sCHECK STATUS AFTER CACH wRITE 
D0 CONSOLE SWITCH 
3 STOP - CONTINUE TO CAYSE DATA LATE 


DLT: 


JSR 
JSR 
JSR 


@INTIL 
DLTA 
@IMESS 


PAGE 


sHI DENS=1 


tACLISEXPECTED STATUS 


sACOSACTUAL STATUS 


sEXIT IF NOT PE 


sEXIT IF NOT CPE 
tMASK ERR IF PE ONLY ERR 


sFOR BIT 12 


10K 


49 


03763 
03764 
03765 
03766 
03767 
03770 
03771 
03772 
03773 
03774 
03775 
03776 
03777 
04000 
04001 
04002 
04003 
04004 
04005 
04006 
04007 
04610 
04011 
04012 
04613 
04014 
04015 
04016 
04017 
04020 
04021 
04022 
04023 
04024 
04025 
04026 
04027 
04030 
04031 
04032 
04033 
04034 
04035 
04036 
04037 
04040 
04041 
04042 
04043 
o4044 
04045 
04046 
04047 
04050 
04051 


003143 
063511 
000777 
034045 
011403 
000771 
000770 
054476 
102440 
040475 
020475 
040475 
020063 
046030 
024136 
152620 
141001 
020039 
143000 
042030 
125404 
GO0774 
006265 
024117 
060422 
123405 
000776 


006302 


C20213 
061122 
20452 
101202 
022062 
063622 
Q00774 
964422 
030134 
135414 
010440 
OZ044) 
010440 
101203 
090415 
020433 
101064 
0004ie 
020431 
101005 
C90404 
006251 
004404 
000404 
096251 
004416 
010421 


OLT.1: 


NOOL: 


MCYC 

SKPBZ TTO 
JMP enl 

LDA 3445 
SZ 3493 

JMP DLT41 
JMP OLT+i 
STA 3-+-0LTB 
SUBO 0e0 
STA 0-eOLTC 
STA 0,D0LTO 
STA O,DLTE 
LDA O»PCHIN 
STA 0439 
LOA 1.42000 
SUBZR 2:2 
MOV 2+0eSKP 
LOA 0.30 
ADD 2-0 

STA 0,030 
INC 141+S2ZR 
JMP .=-4 
REWINO 

LOA 1,C200 
DIA OeeMTA 
AND 1¢0,4SNR 
JMP e=2 

JMP “WCPST 
LOA 0,C5X 
DOAS O«.MTA 
LDA O,OLTE 
MOVR 04¢0¢SZC 
LOA O«aPPCHN 
SKPON MTA 
JMP .=4 

DIA 14.MTA 
LOA 2.C40000 
ANOH 1,2¢SZR 
ISzZ OLTc 
LOA O,DLTE © 
IS2 OLTE 
MOVR 0¢0+SNC 
JMP NODLA 
LOA O-«DLTC 
MOV 040¢S2ZR 
WMP NOOLA 
LOA 0,OLTD 
MOV 0+¢0eSNR 
JMP +4 

JSR @AIMESS 
NODLB 

JMP NODLA 
JSR aIMESS 
NOOLC 

ISZ OLTO 


PASE 


:LOOK FOR BOT 


tSET CA & WC TO 0 


SSTART WRITE 


31026 MEMORY REFERANCES 


sOATA LATE? 
sYES 


3NO 


04052 
04053 
04054 
04055 
04056 
04057 
04060 
04061 
04062 
04063 
04064 
04065 
04066 
04667 
04070 
O4071 
04072 
04073 


04074 
04075 
04076 
04077 
04100 
041023 
04102 
04103 
04104 
04105 
041056 
04107 
04119 
04111 
O4it2 
04113 
64114 
04115 
04116 
04117 
04120 
04121 
04122 
04123 
04124 
04125 
04126 
C#127 
04139 
04131 
C4132 
04133 
04134 
04135 


963511 
000777 
020415 
101904 
002412 
O50125 
064422 
147405 
008734 
006251 
UYesOy 
0633511 
300777 
002401 
e0co600 
0009000 
Q9600900 
000006 


906247 
004412 
006251 
003143 
063511 
Co0777 
GCC4246 
C34045 
0211403 
0007790 
CUC7TE7 
0354426 
062677 


006277. 


000177 

063522 
000777 
064422 
030123 
147414 
000412 
054422 
020172 
1479615 
000764 
006251 
004434 
064422 
006253 
090757 
006251 
004455 
002401 
006090 


NODLAS 


ETTAS 


FTT ei: 


ENDTs 


ETTSs 


PAGE 51 
SKPE2 TTO 
wJMP onl 
LOA 0O,DLTC 
MOV 0+0¢SZR 
JMP @DLTB 
LOA 2,C1000 
DIA 1,,™TA 
AND 2.1+SNR 
J4MP OLT.1 
JSR @IMESS 
NOOLS 
SKPBZ TIO 
JMP evl 
JMP ADLTB 
0 
0 
0 
0 
TEND TAPE TESTe WRITE TO EOT AND 
tHALT AFTER MESSAGE, NOTE ERRORS 
sALONG THE WAY 
JSR AINTIL 
JSR ETTA 
JSR aIMESS 
MCYC 
SKPBZ TTO 
J™MP eel 
ERHLT 
LDA 3445 
TSZ 343 
UMP ETT+1 
UMP ETT+1 
STA 3sETTB 
IORST | 
WRITE 
77-0 Ce e WRITE 
SKPBZ ,MTA 
JMP gol 
LOA 2.C1000 
ANO# 241,52ZR 
wuMP ENDT 
OIA iaMTA 
LOA 2.C70644 
ANO# 241¢SNR 
JMP ETTA+1 
JSR AIMESS 
MSTAR 
DIA 1,-MTA 
JSR aAIPOCT 
JMP ETTA+1 
JSR SIMESS 
MENOT 
J¢P @ETTS 
0 


sESCAPE IF 1 DATA LATE DET. 


sf OT? 
+NO 


sEND TAPE OK 


$SET CA & WC TO 0 


sREAD STATUS 


sENO TAPE 


3NO E0T, NO ERRORS 


04136 
04137 
04140 
04141 
04142 
04143 
04144 
04145 
04146 
C4147 
04150 
04151 
04152 
04153 
04154 
04155 
04156 
04157 
04160 
04161 
04162 
04163 
04164 
04165 
04166 
04167 
04170 
04173 
94172 
04173 
04174 
04175 
04176 
04177 
04200 
04201 
04202 
04203 
04204 
04205 
04206 
64207 
04210 
04211 
04212 
04213 
04214 
04215 
04216 
04217 
04220 
04221 
04222 
04223 


096247 
004411 
006251 
003143 
063511 
000777 
034045 
011403 
000771 
060770 
634456 
062577 
Guecs65 
GO5271 
1002905 
0Oc402 
Cooeay 
Go627! 
100201 
0959772 
906271 
L00201 
090417 
006251 
CO4334 
620155 
040437 
G06272 
109201 
9060410 
606300 
09G112 
644431 
oo2772 


806251. 


004365 
002424 
020161 
0404823 
062677 
006265 
océ274 
ico0205 
C00774 
006277 
00010e 
063522 
CO9777 
006271 
119295 
0u0404 
062677 
000401 
092493 


wlTs 


INWLTs 


INWLA. 


INwLFs 


PAGE 
tWRITE LOCK TEST 
JSR @INTIL 
JSR INWLT 
JSR aIMESS 
MCYC 
SKPBZ TTO 
JMP wal 
LOA 3:45 
ISZ 35:3 
JMP WLT+1 
JMP WLT+1 
STA 3eRINWL 
TORST 
REWIND 
STATUS 
4109205 
JUMP +2 
JUMP +4 
STATUS 
100201 
JMP 2-6 
STATUS 
100201 
JMP INWLA 
JSR BIMESS 
INWLB 
LDA 0,03090 
STA O+INWLD 
STATUS 
10c201 
JMO INWLA 
WAIT 
C1ioo 
DSZ INWLD 
JMP e 76 
JSR aIMESS 
INWLH 
UMP ARINWL 
LDA O+M4 
STA O-¢INwLD 
LORST 
REWIND 
STATUS 
isc205 
UME »<4 
WRITE 
id2 
SKPBZ .WTA 
JMP sol 
STATUS 
110205 
JMP INWLC 
IORST”™ 


;RING IN 
sRING CUT 


OR OTHER TROUBLE 


tRING OUT OR OTHER TROUBLE 
sRING IN 
tSKP IF RING IN 


sRING IN 


+GOT RING OUT OR UNRDY 


:WAITED LONG TIME 


tRING IN OR OTHER 
s;OK RING OUT 


sNOT ILLEGAL OR OTHER ERROR 
; ILLEGAL 


el. 3. 4 


UMP @RINWe 


32 


04224 


04225 
04226 
04227 


04230 
04231 
04232 
04233 
04234 
04235 
04236 
04237 
04240 
04241 
04242 
04243 
04244 
04245 
O424E 
04247 
04259 
04251 
04252 
04253 
04254 
04255 


04256 
04257 
04260 
04261 
04262 
04263 
04264 
04265 
04266 
C4267 
04270 
04271 
04272 


GCO4266 


002401 
oo00cd0 
000000 


054402 
032422 
050423 
01429 
032417 
056417 
§10415 
024415 
060422 
123409 
122405 
000406 
636300 
900673 
014407 
$09770 
002403 
C10402 
002401 
0900908 
ouuacd 


000000 


054413 
031400 
Oo50412 
0294190 
063722 
CO2406 
006300 
000075 
614404 
000775 
002401 
G00000 
000C00 


INWLCs 


RINWL: 
INwLDs 


XTIMS 


ATIM,:= 


ATIM15 


RTIMS 
TSTATS 
TIMCTR? 


XTMODS 


XTMD,.:? 


RTMD; 
TMBOCTRS 


PAGE 


ERHLT YACLSEXPECTED STATUS 
; sACOSACTUAL STATUS 

JMP @ARINWL 

0 


Q 
STIMER SUBSROUTIYVE 


TIMER 

# MS TO WAIT 
EXIT STATUS 
TIMEOUT RETURN 
GOOG RETURN 


(MAX) 


3e«RTIM 
2,dRTIM 
2yTIMCTR 
RTIM 
2eaRTIM 
2vTSTAT 
RTIM 
L,TSTAT 
Oe eMTA 
1,0 
1,0+eSNR 
XTIP1 


sGeT TIME 


iGET STATUS 


s;CORRECT STATUS 
s$STALL 1MS 


TIMCTR 
XTIM, 
aRTIM 
RTIM 
aRTIM 


TIMER 
# MS TO WAIT (MAX) 
EXIT ON GONe OR TIMESUT 


oe 


STA 
LOA 


3eRTMD 
2¢0+3 
STA 2eTMDCTR 
ISZ RTMO 
SKPOZ MTA 
JMP ARTMO 
WAIT 

Ci 

OSZ TMDCTR 
JMP XTMO, 
JMP aRTMO 

0 

0 

s;TEST PHASE ENCOCED 
; 

3 TEST SWITCH 7 


(GET TIME 


sEXIT ON OONE 


sSTALL 1 MS 


sEXIT ON TIMEOUT 


53 


04273 
04274 
04275 
04276 
04277 
04300 
04301 
04302 
04303 
048304 
04305 
04306 
94307 
04310 
04311 
04312 
04313 
04314 
04315 
04316 
04317 
04320 
04321 


04522 
04323 
04324 
04325 
04326 
04327 
94330 
04331 
04332 
04333 
04334 
04335 
04336 
043357 
04340 
04341 
04342 
04343 
04344 
04345 
C4346 
04347 


054426 
1754950 
024222 
030122 
133404 
000407 
02%192 
124000 
031469 
133400 
051400 
002413 
030623 
153404 
090770 
0514090 
C24uic2 
124600 
132400 
1320900 
651400 
002401 
C90000 


054407 
C24222 
C30122 
13340% 
CQ2403 
010402 
do24u01 
C09000 
GéoC22 
0900009 
CGS215 
142722 
147515 
142526 
153640 
144722 
142724 
142640 
049515 
146102 
129305 
144722 


XTPNS 


XTPN1s 


XTPN.: 


TPNR: 


XBPPEs 


BPPERs 
COCA4s 
CNGPRGS 
INWLG* 
RE 


ae 2¢ 8 a6 


STA 
INC 
LOA 
LOA 
ANO 
JUMP 
LOA 
COFi 
LOA 
AND 
STA 
JMP 
LDA 
ANDO 
JmP 
LOA 
LDA 
CoM 
ANO 
AOC 
STA 
JMP 
¥) 

SK 
: 


; 
; 
; 


STA 
LDA 
LDA 
AND 
UMP 
ISZ 
JMP 
0 


PAGE 
ON: MODIFY STAT To 2x 
OFF: MODIFY STAT 70 Ox 
EXIT RETURN 


3+TPNR 
3,3 
i-¢SkhTSV 
2,C400 
1229SZ2R 
XTPN. 
1,.C20 
1,1 
2:0;3 
1:2 
2:03 
aTPNR 
2eITLP 
2+21SZR 
XTPN1 
29093 
1,C20 
1.1 

1.2 

i2 
2+0e3 
aTPNR 


iIS TAPE PE 


tNO 
s;CHANGE BIT 11 TO ZERO 


;IF NOT FIRST OP AFTER LP 
sCHANGE BIT 11 TO i 


IP ON NRZ MODE 


TEST SWITCH 7 
RETURN IF 1 


INC RETURN IF 


3,BPPER 
1eSwTSv 
2eC409 
142sSZR 
aBPFER 
BPPER 
aBPPER 


sexXIT IF NRZ 


060022 


0 


a TXTE 


1<215><1a> 


34 


04350 
04351 
04352 
04353 
04354 
04355 
04356 
04357 
04360 
04361 
04362 
04363 
04364 
04365 
04366 
04367 
04370 
04371 
04372 
04373 
04374 
04375 
04376 
04377 
04400 
04401 
04402 
04403 
04404 
04405 
044606 
04407 
04410 
o4#411 
04422 
04414 
04424 
04415 
04416 
04417 
04420 
04421 
04422 
04423 
04424 
04425 
04426 
04427 
04430 
04431 
04422 
04433 
04434 
04435 
04436 


043516 
120656 
147504 
152116 
051640 
147724 
120120 
251120 
043717 
040722 
027115 
120240 
000240 
008215 
151327 
132311 
129305 
147714 
045703 
C4¥1249 
162211 
147640 
143366 
129072 
030261 
141060 
1304606 
G9V240 
005215 
147516 
042240 
152161 
C26501 
040714 
142724 
41240 
152311 
090000 
005215 
1511209 
051705 
120123 
152123 
056317 
040640 
042116 
141546 


047517. 


144724 
052516 
120365 
000000 
005215 
L91305 
L447 722 


NODLBS 
NO 
D 
aT 
Aen 
LA 
TE 
8 
IT 
! 
NODLC: 
PR 
ES 
S 


OP 
A 
NO 
‘ 
ON 
Ti 
NU 
Ee 
! 
MSTAR: 
ER 


RO 
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1<2159<12> 


1<215><1l2> 


1<215><1l2> 


1<15><i25 


04437 
04440 
04444 
04442 
04443 
04444 
04445 
04446 
04447 
04450 
04451 
04452 
04453 
04454 
04455 
04456 
04457 
04460 
04461 
04462 
04463 
04464 
04465 


04466 
04467 
G4470 
04474 
04472 
04473 
04474 
04475 
04476 
04477 
04500 
04501 
04502 
04503 
04504 
04505 
04506 
04507 


04510 
04511 
04512 
04513 
04514 
04515 
04516 
64517 


120222 
152123 
152101 
051525 
143249 
146317 
147714 
144727 
043516 
153640 
144722 
142724 
1290240 
00039090 
005215 
C47 SIS 
120104 
040724 
142520 
000000 
054424 
176520 
G00403 


OS4+421 
034410 
054410 
175400 
054223 
054406 
054406 
052677 
902411 
090012 
0009000 
009000 
008000 
oucoc0 
000050 
000009 
000000 
000009 


054773 
050773 
O44772 
940775 
020223 
014763 
G00436 
C24760 


MENDTs 


eTXTE 


STA 


3eLOOPR 


SUBZL 343 


JMP 
$REKRERER EEK 


+3 


; SET uP 

Se KAEKK ERK 

ENTERs STA 34LOOPR 
LDA 3eITR 
STA 3,ITRCT 
SUB 343 
STA 3eITLP 
STA 3,ESWIT 
STA 3sERRCT 
IORST 
JMP @ALOCPR 

ITRs 12 

ITRCT? O 

ESwiIT? 32 

ERRCTs 9 

RETURN? O 

SAV28 Q 

SAVI: 0 

Savas 0 

LOCPRs 90 


{RR KEKKE KS 


+ LOOP 


x 


Etro LS SY 


CYCLE: 


STA 
STA 
STA 
STA 
SZ 
0S$2 
JMP 
LOA 


3 ,RETURN 
ZeSAVE 
1+SAV1 
O«SAVC 
ITLP 
ITRCT 
cYcTs 
3:iTR 


PAGE 


1<€15><12> 


;LOGOP ITERATE RETURN 
THIS ROUTINE INITIALIZES 
sf ACH TEST 


¢eI/0 RESET 


;END OF TEST ITERATION 
tROUTINE 
;SAVE THE ACS! 


sNOT 100 Ti=FS ITERATED 
SRESET ITERATION CNTR 


36 


04520 
04521 
04522 
04523 
04524 
04525 
04526 
04527 
04530 
04531 
04532 
04533 
04534 
04535 
G64536 
04537 
04540 
04541 
04542 
04543 
04544 
04545 
04546 
04547 
04550 
04551 
04552 
04553 
04554 
04555 
O4556 
04557 
04560 
04561 
04562 
04563 
04564 
04565 


04566 
04567 
04570 
04571 
04572 
04573 
04574 
04575 
04576 
04577 
04600 
04601 
C4892 
04603 


054760 
074477 
030757 
175120 
175100 
191005 
000417 
175103 
000421 
0062354 
024750 
030115 
004557 
030742 
904473 
CIS467 
020412 
006463 
063614 
000777 
009405 
020741 
924737 
230735 
092733 
102401 
009245 
049727 
020732 
024730 
030726 
034722 
175004 
074477 
062677 
175113 
002723 
002716 


054715 
OS07isS 
044715 
049725 
034707 
175005 
000407 
030707 
024707 
020707 
010702 
421000 
O22794 
034700 


NOEX3 


PCENTs 


CYCTS-. 


STA 


3siTRCT 


READS 3 


LOA 


20ESwIT 


MOVZL 343 
MOVL 3,3 


MOY 
UMP 


202eSNR 
NOEX 


MOVL 343:3SNC 


JiMP 
JSR 
LOA 
LDA 
JSR 
LOA 
JSR 
JSR 
LDA 
JSR 


PCENT=1 
BICRLF 
1,ERRCT 
24Ci44 
MULT 
2eITR 
OIVIO 
aIPOEC 
OePCENT 
AICHAR 


SKPDN TTO 


JUMP 
JMP 
LOA 
iDA 
LOA 
JMP 
SUB 
245 
STA 
LOA 
LOA 
LDA 
LDA 
MOV 


eel 
PCENT=1 
0eSAVO 
1-¢SAV1 
2eSAV2 
aRETURN 
0.0SKP 


OeERRCT 
0+SAVO 
1eSAVI 
2sSAV2 
SeESWIT 
3935SZA 


READS 3 
IORST 
MOVL# 3434SNC 


UMP 
UMP 


J REKRKKEKES 


$ EHALT 


* 


{ee KERR EEE 


ERRS 


ERETS 


ERRLG 


STA 
STA 
STA 
STA 
LDA 
MOV 
JMP 
LDA 
LDA 
LOA 
SZ 
NOP 
UMP 


LDA 


AJLOOPR 
aRETURN 


3 esRETURN 
2+SAV2 
1eSAV1 
0eSAVSO 
SeESWIT 
39 3eSNR 
ERR 
2e+SAV2 
1-eSAVI 
0+SAVO 
ERRCT 


ARETURN 
3 RETURN 


“Ss aXAMPLE 3 


+IF SWITCH 2=(1) 

sAND A ERROR HAS OCCURED 
<THE ERROR RATE XTLG 

BE PRINTED 


sPPTET CARRIAGE 


sACIXACS) 


tAC2-1/AC2 
sPRINT VALUE 
307 


tWAIT DONE FLAG 


tNORMAL EXITs NO ERR 


> CHARACTER 
sRESET ERROR COUNT 
TRESTORE ACS 


SWITCH 0. 
2(1)=LOOP ROUTINE 
$(0)=SPROCEED TO NEXT TEST 


sERROR SUBROUTINE 


sEXIT 


TERROR. CESL=O0C 
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04604 063077 HALT sOPERATOR, SET SWITCHES! 
04605 054674 STA 3,ESWIT 

04606 074477 READS 3 

04607 175100 MOVL 3¢3 

04610 175113 MOVL#A 3+3eSNC sLOO0K AT SWITCH 1 
04611 004402 JSR EPRINT sFRINT ERROR OATA 
04612 000763 JMP ERET 

04613 054556 EPRINT: STA 3,ESWIT sERROR MESSAGE PRINTER 
04614 006234 JSR @AICRLF tPRINT CARRIAGE 
04615 006251 JSR @AIMESS ;AND HEADER 
04616 004527 HEADER 

04617 020564 LOA O RETURN 

04620 125900 ADC lol 

04621 107009 AOO Ol 

04622 004456 JSR POCT :PC OF ERROR 
04623 092656 JMP wESWIT sRETURN TO CALL 
04624 004755 ICHAR?® CHAR 

04625 005026 ITYPEs TYPE 

04626 004703 IPpDEC?s PODEC 

04627 041520 HEADERS «TXT YPC 

04630 cocoll <li>! 

04631 054424 O%VIOs STA 3sMSAV sDIVIDE 

04632 034424 LDA 36M20 sAC2-1/AC2] 
04633 125120 MOVZL lel sRESULT IN AC1 
94634 101100 OLOOPs MOVL 9,0 

04635 142412 SUBH 2+0«SZC 

04636 142400 SUB 2,0 

0%637 125100 MOVL 1:1 

04640 175404 INC 343+SZ2R 

04641 099773 JMP OLOOP 

04642 002415 JMP aMSAV 

04643 162460 MULT: SUBC 0+0 tMULTIPLY 

04644 954411 STA 3eMSAV sACLXAC2 

04645 034411 LDA 3.M20 sANS IN ACOe21 
04646 125203 MLOOP® MOVR 1e1¢SNC 

04647 131201 MOVR 0+0eSKP 

04650 143220 ADDZR 2.0 

04651 175404 INC 34¢3+¢S2ZR 

04652 000774 JMP MLOOP 

04653 125260 MOVCR lel 

04654 GO02401 JMP aMSAV 

04655 000000 MSAV: 5) 

04656 177760 Mec: “20 


iTTC NOW INTERRUPT PACKAGE 


S"MESS" PRINTS ASCII MESSAGES AS SPECIFIED BY ASSEMBL 
"CHAR" PRINTS ASCII CHARACTERe C(OIRVC(OIL MUST BE 0 
gWILL RETURM 42 IF C(O? Rad eCORRECTS THE PARITY+sAS SIMUL, 
"TYPE" PRINTS C(O)R.» MIST HAVE PROPER PARTTY. RETURN IS 


THIS RCUTINE wiITH INTERRUPT TYPE iF 
RETURN 


$TO CALL +1.REPLACE 
DESIRED "CRLF" PRINTS A CARRIAGE 
"CRLF" PRINTS A CARRTASE RETURN 

s"POCT" PRINTS C(1) IN SCTAL FOLLOWED BY A TAB 

s"POEC$ PRINTS C(1) IN JECIMAL+LEAODING ZEROS SUPPRESSED, 
SFOLLUWED BY A TAB. 
MESS$ STA 3¢MESSR 


04657 054546 TPRINT A TEXT MESSAGE 


04660 
04661 
04662 
04663 
04664 
04665 
04666 
64667 
04670 
04871 
04672 
04673 
04674 
04675 
04676 
04677 
04700 
04701 
04702 
04703 
04704 
04705 
04706 
04707 
04710 
04711 
04712 
04713 
04714 
04715 
04716 
04717 
04720 
04721 
04722 
04723 
04724 
04725 
04726 
04727 
04730 


04731 


C4732 
04733 
C4754 
04735 
04736 
04737 
04746 
O4744 
04742 
04743 
04744 


04745 


C10545 
031400 
024121 
021000 
1295112 
423761 
1234901 
151469 
124006 
094464 
900771 
063511 
090777 
0025390 
020525 
101¢01 
020107 
030433 
600403 
DS0441 
920517 
954457 
O4O445 


900405 


146400 
034107 
191400 
0C0772 
151235 
024107 
054423 
163000 
VOE42S 
006755 
030425 
100000 
010600 
001000 
000300 
Co00016 
O0ccol 
999000 
030435 
000012 
023420 


OCT: 


POCT? 


PODECS 


DECOCT: 


CECP: 


OCTAB: 


DECTRs 


eRDX 19 


ISZ MESSR 

LDA 2:03 

LOA 1,C377 
LOA 0402 
MOVL# 141,.S2C 
ANOS 1¢0¢SKP 


PAGE 
iC(2) POINTS TO MESSAGE 
+A 8 BIT MASK 
7#C(2)=DATA WORD 


AND 1:+0+«SKP $C( )SOATA CHARACTER RIGHT 
INC 2e2 *+THEN TO NEXT WORD 

COM lel sFLIP BASE 

JSR CHAR sPRTOT 

JMP MESS+4 st ANOTHER 

SKPBZ TTO 

JMP e-l 

JMP AMESSR tLAST 

LOA O0¢eCH2490 

MOV 0¢0¢SKP 

LDA 0,.C60 

LOA 2,0CTAB tPRINT C2) IN OCTAL 
JMP «+3 

LDA 2sDECTB PRINT C(1) IN DECIMAL 
LDA 0-eCH240 ;SUPPRESS LEADING ZEROS 
STA 3eRADRET ;BOTH ENTRYS PRINT NUMBER 
STA 0+ZSUPP ;THEN TAB TO NEXT POSITION 
STA 2eetl 

0 sAN"LDA 2,TABLE" INSTRUCTION 
iSZ .-1 

LDA 3+¢RADRET s;SETUP "TAB" AT END 

LDA OeCHTAB 

MGV 2e2¢SNR ;IF TABLE ENTRY=0 

JMP CHAR seXIT WITH TAB 

LDA 3+2SUPP ;ZEROS SUPPRESS STUFF 
SUB 0,0 

DECOD: “SUBLH 241+S2C 

JMP DECP 

SUB 2e1 sFORM THE DIGIT 

LDA 3,C60 

INC 0¢0 

JMP DECOD 

MOVZRH 2e2eSNR 

LOA 3.C6é0 

STA 3+ZSUPP 3C(0)=DIGIT 

ADD 3.0 ;MAKE ASCII 

JSR CHAR sPRINT 

JMP OECOCT 2;SET EXT OIGIT 

LDA 2eet1+.-OECICT 

100000 

10000 

1000 

100 

10 

= 

0 


LDA 2eet1+e-D0ECOCT 


10000 
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04746 
04747 
04750 
04751 
04752 


04753 
04754 
04755 
04756 
04757 
04760 
04761 
04762 
04763 
04764 
04765 
04766 
04767 
04770 
O4771 
04772 
04773 
04774 
04775 
04776 
04777 
05600 
05001 
05002 
05003 
05004 
05005 
o560¢ 
05007 
05010 
05011 
05012 
05013 
05014 
05015 
05916 
05017 
05020 
05021 
05022 
05023 
05024 
65025 
05026 
05027 
05030 
05031 
05032 
05033 


001750 
000144 
000912 
0900001 
ococdoo 
000010 
000000 
0c0Ccd0 
054440 
101325 
OOL4OL 
040449 
1769900 
117000 
163404 
000775 
176660 
020422 
163300 
G44426 
116405 
0004C3 
C34433 
052423 
020424 
Q344234 
117405 
002417 
020422 
Qok4sy 
v00772 
034420 
N204i19 
DO4747 
220405 
004745 
102409 
040407 
OG24i11 
000212 
ocoeis 
VGG511 
009900 
000ca09 
000990 
006007 
000240 
000006 
000000 
054412 
016772 
074477 
175106 
175102 
Ud2405 


eRhOX 8 
ZSUPP 
RAGRETS 
CHARS 


CHAR1® 


CREFS 


C2123 
C2153 
CHTAS 
CrRET 
CHSAY 
CHORZ 
CRHARZ 
CH240 
CRLFR 
MESSR 
TYPE: 


OG 82 C8 @©8 GF 420 823 88 


STA 


MOVZS 040+SNR 


JMp 
STA 
AOC 
ADO 
AND 
JMP 
SUBC 
LDA 
ADOS 
LDA 
SUB 
UMP 
USR 
UMP 
LOA 
LOA 
AND 
UMP 
LOA 
USR 
UMP 
STA 
LDA 
JSR 
LDA 
JSR 
SUB 
STA 
UMP 
212 
215 
11 
0 

0 

0 

7 
240 
0 

0 
STA 
1Sz 


3eCHRET 


1,3 
0,CHSAV 
3,3 
0,3 
340+SZR 
Pe) 
R 3¢3 
0eCHSAV 
340 
3.CHTAB 
Ov3eSNR 
e+3 
TYPE 
ACHRET 
0,CHORZ 
3eCHARZ 
O0+3eSNR 
aCHRET 
0,CH240 
TYPE 
78 
3eCRLFER 
0,C215 
CHAR 
0,C212 
CHAR 
0.0 
0,CHORZ 
aCRLFR 


Se TYPRET 
CHORZ 


READS 3 
MOVL 343 
MOVL 343:+S52C 


JP 


ATYPRET 


PAGE 


sPRINT C(O) RIGHT 
SRETURN ¢2 ITF NULL 


sCOMPUTE THE PARITY 


‘COMBINE PARITY WITH CHAR 


:IS THIS A TAB 
7YES 

3NO PRINT IT 
sEXIT 


sSIMULATE A TAB 
VIA 1 TO 8 SPACES 


3SAVE RETURN 


sPRINT CARRIAGE AND LF 


;CLEAR HORZ POSITION 
sEXIT 


TTYPE TRE ClOIR IF 


iSwWITCH 110)! 


tINWTAIT TYP EXIT, 
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05034 
05035 
05036 
05037 
05040 
05041 


Gés5ii 
000777 
061111 
002401 
000000 
000060 


07442 062677 
07443 020136 
07444 063022 
07445 001400 


TYPRET: 
LASTS 
WCPS: 


. END 


SKP52 TTO 
JMP owl 
GOAS O0+TTO 
JMP ATYPRET 
0 

0 


IORST 
LDA G, M2G3GqG 
DOC G, .MTA 
IMP G, 3 
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000411 
000415 
000606 
000617 
000630 
000642 
000651 
000654 
000666 
000702 
000717 
000731 
000743 
000754 


000765 


0G0767 
000421 
001011 
001013 
0010352 
001056 
001062 
001064 
001112 
001116 
001120 
001146 
001166 
001175 
001206 
0012351 
000425 
001246 
001277 
001326 
001355 
001361 
001364 
001431 
001435 
061440 
9015905 
001542 
001577 
001623 
ooi645 
000431 
001704 
001735 
901770 
gnd2ecse 
002106 
002152 
902220 
oo02261 


ov0o5s5 
00415 
00606 
00617 
00630 
00642 
o9653 
06654 
00666 
90702 
00717 
00731 
GO743 
C0754 
00765 
00767 
00421 
O10i1 
01013 
01052 
01CSé 
01lc62 


01057 


01106 
01115 
01113 
01142 
01166 
01175 
91206 
00224 
00425 
01246 
01277 
01326 
01355 
01361 
01356 
91425 
01435 
01432 
01501 
01542 
01577 
01623 
09225 
00431 
01704 
01735 
01770 
92042 
02106 
02152 
09226 
02261 


00411 


00665 


00747 
00760 


01005 


01111 
01064 
Clile 
02145 
01120 
01146 


01231 


01430 
01364 
01431 
01504 
01440 
01505 


01645 


22220 


03052 


01110 


01144 


01427 


01505 


PAGE 


$2 


002322 
9002363 
002373 
002375 
000442 
002433 
002443 
002467 
002512 
002522 
002546 
o02571 
002601 
002625 
002650 
002660 
002704 
002736 
002746 
003016 
O004%51 
000453 
000456 
000463 
000474 
000507 
000517 
000530 
900541 
000552 
000660 
000563 
000233 
000246 
004331 
006255 


003100 
096254 
000075 
000101 


oagolie 


oodles 
000127 
900115 
000174 
000149 
600151 
vo015e2 
900115 


AHALT 
2PPER 
ESPAC 


BTOF 
BYPAS 
Cl 


C10 


Ci00 


C1000 
cia04 
Cio03 
C104 
Cids2 
Ci1i0o0 
C1252 
Ci+4 


02322 
02363 
00227 
00230 
One4e2 
00251 
C2443 
02467 
02512 
02522 
02546 
02571 
62601 
02625 
02650 
02660 
02704 
027356 
0274S 
C0232 
00451 
00453 


00452. 


00463 
00466 
v9507 
00517 
00539 
Qgv541 
ocs5e 
09609 
00563 
00233 
00246 
04322 
90502 
02230 
92717 
90233 
90302 
69073 
00101 
01566 
90112 
01753 
03346 
04175 
00123 
00127 
06113 
00114 
00146 
voi5i 
001S2 
e015 


02373 
023575 


02217 
02452 
92475 


C2531 
92554 


02610 
02633 


02667 
02712 
02777 
03011 
93016 


00473 
00456 
00471 
00474 


01211 
00302 
04326 
01170 
02271 


03100 
01206 
94245 
00753 
03201 
00663 
01771 
C3420 


03017 
01560 
01521 
01730 
09521 
01i6i 
00432 
04533 


024353 


00462 


00506 


04327 
01235 
023532 


Q1S577 
o42s5 
01072 
O3741 
91305 
02506 
03524 


04057 
01765 


00564 


00472 


04330 
02305 
C2402 
01774 
Ci126 
01336 
02565 
03532 


04116 


04331 
01612 
02502 


02727 
01411 
01347 


02644 
03572 


U1634 
02561 


61465 


01663 
92725 
63600 
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01716 
02649 


01531 


01721 
03003 
03705 
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000116 
000146 
006150 
000156 
oco2i1 
000074 
000102 
060117 
000124 
oo00144 
O0c0154 
000126 
000125 
000141 
005014 
005015 
000103 
000075 
000104 
000152 
000120 
o00d121 
000076 
C¢00105 


o0dle2 
0001354 
000155 
g001%2 
000143 
000150 
000077 
0060106 
~900155 
0001535 
000213 
000107 
000100 
000110 
900172 
oo0o1112 
goe131 
gcd2i4 
004332 
900056 
g05023 
004755 
004779 
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01225 
91370 
Gi525 
61652 
o2n22 
02225 
02417 
04157 


02364 
03633 


01404 
01757 


02524 


01236 
01755 
02272 
02532 
03626 


04264 
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09743 
01242 
02374 
Qi551 
o1l667 
02050 
02245 
65015 
04%162 


03016 
03704 


01443 


025753 


01265 
02020 
02364 
v2611 


01253 
C1605 
02002 
02375 


02601 


03722 


790 


003366 
003371 
003476 
003357 
003734 
003701 
003754 
004230 
004251 
004237 
004256 
004262 
064273 
004301 
004307 
693413 
003553 
003556 
003601 
003661 
003677 
004755 
voogées 
000071 
0009072 
000070 
000067 
000022 


XRWO 
XRWS 
XSEL 
xSPC 
XSTAL 
XSTAT 
XSTT. 
xTIM 
ATIMI 
XTIM, 
ATMO 
zTMO, 
ATPN 
XTPNi 
XTPN. 
AWEOF 
XWNS 
AWRT 
AWRT. 
AWT 
AWTAL 
ZSUPP 
2iSEc 
2200% 
»400M 
»csOMS 
soSEC 
oMTA 


00265 
00266 
00267 
00270 
03721 
00271 
03740 
00272 
04245 
042357 
$9273 
04262 
00274 
04301 
04300 
00275 
90276 
00277 
O3601 
00300 
03662 
04706 
00066 
Q0071 
00072 
C6070 
60067 
063502 
00455 
00524 
00555 
00574 
00622 
00754 
01074 
01212 
01264 
014902 
01570 
61764 
02061 
02135 
02235 
02311 
02414 
02473 
02547 
02625 
02702 
02760 
03375 
03540 
64015 
04121 


03366 
GS3371 
03476 
03357 
03727 
03702 
03743 
04230 
04251 
04247 
0%256 
04267 
04275 
04311 
04307 
034135 
03553 
63555 
02615 
03661 
03674 
04716 


00641 


00422 
0947s 
00533 
C0556 
00602 
00624 
00774 
01125 
01214 
01272 
01413 
01700 
92012 
u2063 
G2144 
092240 


G2337 . 


02422 
0zZ2476 
02552 
02626 
02704 
92764 
93410 
o3€02 
64020 
04127 


03556 


03677 
04730 


03500 


00426 
00477 
00534 
00557 
oc60s 
00525 
01002 
01130 
01220 
61304 
01455 
01726 
G2015 
02071 
02156 
vez4e2 
C2342 
02457 
02505 
62555 
02631 
02705 
$2770 
O3411 
035694 
O04+G25 
04214 


04753 


00433 
c0511 
00535 
C0570 
00610 
00633 
01016 
91156 
91223 
01307 
01467 
01722 
02017 
C2100 
02171 
02250 
g2344 
92461 
02536 
02552 
02634 
02710 
a3002 
04424 
05606 
O4gGoy 
04246 


00434 
005135 
00544 
00571 
00611 
00634 
010235 
01157 
C1240 
01322 
01522 
O1734 
02025 
92122 
02173 
02276 
§2352 
92465 
92546 
G2515 
92641 
02713 
93363 
93502 
03625 
94112 
04262 


90444 
00522 
00545 
00572 
00€14 
00655 
01035 
021560 
01256 
01337 
01533 
g1752 
62034 
02125 
O2ecl 
02301 
G2407 
02457 
9254% 
02617 
02674 
92720 
03364 
03534 
03647 
04113 
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00445 
C0523 
00546 
GOS73 
90621 
00712 
01067 
01177 
01265 
01351 
01557 
01754 
02056 
92127 
02210 
02303 
02412 
02470 
02546 
02623 
G2676 
92756 
05367 
O5536 
035724 
04115 
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SECTION Il 


RELIABILITY PROGRAM 
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5 RRR KK KKK KKK KERR EEEE ERK AKER KKK KEK 


; WESTERN PERIPHERALS * 
tsMAGNETIC TAPE RELIABILITY PROGRAM « 


LISTING NO, AL120010_ ak 
Ngee | Oa. a BPP oes — 
RRAKKEK KK KKK KK KK KKK KEE reer. ae sre ee 
1eABSTRACT 
THE TAPE CONTROL RELIABILITY IS A MAINTENANCE 
PROGRAM INTENOL) FOR RIGOROUS TESTING 
OF A SYSTEM THAT HAS SUCCESSFULLY RUN 
THE OITAGNOSTIC TEST AND THE TIMING 
TEST. 
2eMACHINE REGUIREMENTS 
NOVA OR SUPERNOVA PROCESSOR 
4K READ/WRITE CORE MEMORY 
TELETYPE 
3.SWITCH SETTINGS 
3ei STARTING ADDRESSES 
NOTE 
SWITH 0 MUST SBE SET SEFORE START 
OF PROGRAM IF SYSTEM CONFIGURED 
FOR 619654 PACKIVG ON 7TRK 
400 RELIABILITY TEST 
491 INTERCHANGE TEST (RD&WR) 
4O2 INTERCHANGE TEST (RO ONLY) 
465 TEST LOOP BUILDER 
3e2 CONTROL 
* ~~ SWO=PHASE ENCODED 
SWL=INHIBIT PRINTOUTS 
SW3=DONT PRINT PARITY ERRORS 
SW4=DONT RETRY ON WRITE PARITY EZRROR 
SW5=DONT RETRY ON READ PARITY ERROR 


26 we 28 20© 26 Se #20 O28 B20 20° 26 @se 20 we oe 28 


& OPERATING PROCEDURE 

LOAD PROGRAM USING TRE BINYRY LOADER 
4.1 RELIABILITY TEST 

SET WRITE ENABLE FOR ALL UNITS TO 

BE TESTED. STAKT, ERRORS WILL BE 
REPORTED ON THE TELETYSE 

4,2 INTERCHANGE TEST (RO8wWT) 

MOUNT TAPES ON aLL UNTTS TS BE TESTED 
AND SET THEM IN wRITE PERMIT. START. 
WHEN ASKED BY PROG, REMOVE TAPES AND 
MOUNT ON UNIT T9 THE RIGHT. ERRORS 

ARE REPORTED ON THE TELETYDE. 

4.3 INTERCHANGE TEST (READ ONLY) 

MOUNT TAPES weRITTEN USING THE MODE 
DESCRIBED ASOVE IN PAR. 4.5 GNTO ALL 
UNITS TO BE TESTED. START, WHEN ASKED 
BY PROG, REMOVE TAPES ANDO MCUNT ON THE 
UNIT TO THE RIGHT. FRRORS ARE REPORTED 
ON THE TELETYPxr, 

4,4 TEST LOOP BJILDER 

SzT THE WRITE £MABLE FOR Tu& UNIT TO BE 
TESTED. START. FROGRAM WILL RESPOND 


Be @26© @2e 20 &b 66 @2t 28 26 26 WE BGO 26 682 De 24 OS BE 26 BH 26 BE 28 BE we 6S GO 24 Be Be WE Be B26 BER BE DE 


1 


20 26 26 20 2 St @¢ 20 BO 20 86 22 428 @28 we Sf @8 SO 26 BO Se 28 BO Be GO 2H we 29 £29 He 406 GO 26 Be 2 we 2 Ge 20 GE Bt <6 20 GO B28 28 we Ge 28 SO ce 70 we we we 


PAGE 
WITH "UNIT", TYPE IN THE UNIT # 
PROGRAM WILL. RESPONS WITH TWC", TYPE 
IN WORD COUNT. (IN OCTAL). PROGRAM 
WILL RESPOND WITH "DATA", TYPE IN THE 
DATA COCE = 
COOES: 


RANC RANDOM VATA 


ALL1 = ALL ONES 
ALLO = ALL ZEROS 
ALTO = ALTERNAT= ONES AND ZEROS, 


STARTING WITH ZERO 
ALT1 = ALTERNATE ONES AND ZEROS 
STARTING WITH ONES 
WON@N= FILL WRITE BUFFER WrTH DATA N-N 
PROGRAM WILL THEN ASK FOR PARITY TYPE 
(PAR). ENTER "O00" OR "EVEN" 
PROGARM WILL RESPOND WITH [COMMAND 
STRING", KEY IN THE COMMAND STRING, 
COMMANDS - 


RO = READ 

RW = REWINO 

RU = REWINO UNLOAD 
SF = SPACE FORWARD 
SB = SPACE BACKWARDS 
WT = WRITE 

WE = WRITE FOF 

ER = ERASE 

RE = READ EOF 


LOOP * = LOOP BACK TO * 

LOOP = GO BACK TO BEGINNING OF LINE 
SAMPLE COMMANO STRING 

RW/WT 0 10e/RW/*7R20410e/SB6eins/LOCP x 

THIS ROUTINE WILL REWIND. WRITE 8 RECORDS 
AND THEN READ 8, AND SACKSAACE Oy 
CONTINUALLY, 

TYPE ANY CHAR OY THE TTY TO 

TERMINATE THE TST. 

TYPING "CARRIAGE RETURN" IN RESPONSE TO "UNIT" 
WILL CAUSE THE PREVIOUS COMMAND STRING TO 
BE EXcCUTED AGAIN. 


DESCRIPTION 


5.1 RELIABILITY TEST 

THE RELIABILITY TEST ASSUMES THAT ALL 

UNIT BEING TESTED ARE FUNCTIONAL TO 

A CERTAIN EXTENT, IT SEARCHES FOR ALL 

WRITE ENABLED UNITE: REWINAS THEM AND 

WRITES A FILE MARK AT THE B89T. OF THESE 

IT PICKS ONE AT RANOGM ANDO FERFORMS THE 

FOLLOWING. 

AeWRITES A FILE MARK 

BePICK RANDOM NYJMBER OF RECORDS (1-7) 

C.PICK RANDOM STARTING ADDRESS 

D.GENERATE RANDOM WORD LENSTH BUFFER 
MOOULO 512 

EeWRITE THE FILE FOLLGWED pnY FILE MARK. 
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FeBACKSPACE OVER THE FILE 
GeREAO AND CHECK THE FILE, 
HePICK ANOTHER JNIT ANO START AGAIN. 
5.2 INTERCHANGE TEST (RD&WT) 
THIS IS a WORST CASE SKEW TEST THaT 
IS PERFORMED TO TEST THE INTERCHANG- 
ABILITY OF TAPES WRITTEN ON ONE UNYT 
TO READING ON ANOTHER. IT PROCEEDS 
AS FOLLOWS. 
AeFIND AVAILABLE WRITE ENAQLED UNITS 
BeWRITE THE SKEW PATTERN 1n0 TIMES 
ON EACH, 
CeWRITE 100 RANSOM DATA REFZOROS FOLLOWED 
BY 2 EOF, ON EACH UNIT, 
DeREWIND ALL UNTS. 
EeREAD AND CHECK THE SKEW cATTERN 
ALL UNITS, 
FREAD AND CHECK THE RANDO'’ DATA AND EOF®S 
ON ALL UNITS. 
GeTYPE MESSAGE ON TTY TO HAVE OPERATOR 
MOVE TAPES TO ANOTHER UNrT FOR THE 
READ TEST AGArN. GO BAC? To STEP O. 
5.3 INTERCHANSE TEST (READ ONLY) 
THIS IS THE SaMs AS THE PREVIOUSLY 
DISCUSSED TEST IN PAR. 5-2. EXCEPT 
THAT STEPS A THRU C ARE BYPASSED 
5.4 TEST LOCP BILDER 
THIS PROGRAM IS ENTENDED FOR USE BY 
THE TECHNICIAN aS A DEBUGGING AIN, 
IF A CERTAIN SEQUENCE OF EVENTS IS 
NEEDED TO SHOW UP A PARTICULAR PROBLEM 
THAT SEQUENCE Can BY TYPED IN AS A COMMAND 
STRING WHICH WILL THEN BE PERFORMED. 
THE SAME BASIC TAPE SUBRCGUTINES USED 
IN THE RELIABILITY TEST ARe USED HERE, 
LINKED TOGETHER BY THE COMMAND STRING 
INTERPRETER, 
5.5 GENERAL 
THE HEART CF THe PROGRAM Is COMPOSED 
OF SEVERAL TAPE HANCLING SUBROUTINES. 
ERROR CHECKING IN THESE SUSR. IS DESCRIBED 
BELOW. 
READ SUBRGUTINE 
1. GIVE C PULSE 
2e IF DATA LATE,REWING ILLEGAL OR PARITY 
STATUS, PRINT MESSAGE AND EXIT 
3e READ AND wWALY IN SKPS5Z 1, 00P 
4. IF DATA LATS. REWIND OR ILLEGAL, PRINT 
MESSAGE ANO EXxIr 
Se IF PARITY PRINT MESSAGE FIRST TIME ONLY 
ANO RETRY LP TO § TIMES. 
CORR PARITY &RR ARE IGNORED (72) 
Se IF ECT SET SOFTWARE FLAG. 
Te EXIT 
CHECK SUBROUTINE 


doco 
00001 
00002 
00003 
00004 
90005 
00006 


00020 
00021 
00022 


00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
090050 
00051 
00052 
00053 
00054 
00055 


000000 
806500 
CO0497 
Cocc0d 
206000 
000000 
9gcc00 
60099 
000020 
900900 
009999 
Co5000 
000040 
OcSo042 
v9o4021 
Go0605 
000622 
0059051 
605062 
Ooccel 
Co00gve2 
090004 
000010 
000020 
060040 
C3020 
9002990 
099010 
00cG0190 
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Loc 9 


oe A ool oe BO coe BE S| 
mwMmmswMm 4. 
Oanwm FO 
@e 6€9 @e e+ 6¢ 


IDxX03 
IOx1:s 
IDx2s 
eLOC 

IGET3 
ITTIs 
ICRRS 
TIBUF : 


AVAIL: 


WPAR 
PERMwW: 
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1. CHECK DATA IN INPUT BUFFER ASAINST DATA 
THAT WAS WRITTEN, PRINT MAXIMUM OF 3 
DIFFERENCES IN EACH RECORD, 

2. CHECK CRC IF gTRK, ODD GAR. 
UNLESS 9 TRK EVEN PAR, PRINT 

IF ERROR, 

WRITE SUBROUTIN= 

1. GIVE CLEAR PULSE 

2e IF DATA LATEe WRITE LOCKs ILLEGAL» OR 
PARITY, PRINT MESSAGE ANDO EXIT 

3e WRITE ANG WALT FOR INTERRUPT (RUN TIMER) 

4. IF NO INTERRUPT PRINT MESSAGE AND EXIT 
IF INTERRUPT, 
MESSAGE IF 


CHECK LPC 


Ir FAILS, 


6. IF PARITY EKR PRINT MESSAGE ONCE AND RETRY 


UP TO 8 TIMES, 
AND TRY AGAIN, 
7e IF EOT SET SGFTWARE FLAG 
8. EXIT 
SPACE SUBROUTINE 
1. LOAD WC AND SPACE WAITING IN SkKPBZ LOOP 
26 IF ADDRESS R=G. COUNTS DO NOT AGREE 
WITH #REC SPECIFIEDs PRINT MESSAGE. 
3. IF DATA LATt, ROWIND,ILIEGAL, OR 
PARITY PRIN! MESSAGE, 


IF NO-GO ERASE TAPE 


4, EXIT. 
9) ;STORE PC ©N INT. 
SERINT s;ADOR. OF SER RUT. 
G 3ON INT, SAVE ACQ 
0 sAC1 
0 ,AC2 
G ;AC3 
0 ts CARRY 
eLOC 20 
0 
8) 
0 
40 
SETCH 
TYPE 
TTINT 
INTER 
LAST+1 
LAST+2 
1 
2 
4 
10 
20 
uO 
1490 
200 
SLK 10 tWRITE PARITY 
»alK 10 SPERM WRITE ERROR 


CHECK OITSABLE FLAG AND PRINT 


00176 
00177 
00200 
00201 
00202 
002035 
00204 
00205 
00206 
G0207 
00210 
o02il 
00212 
002135 
00214 
60215 
00216 
00217 
00220 
00221 
00222 
00225 
G0224 
00225 
00226 
00227 
00230 
002351 
00232 
00233 
00234 
00235 
00256 
00237 
00240 
oo24i1 
0o24e2 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
90255 
00256 


000010 
006010 
000010 
000010 
000020 
000020 
000000 
000177 
000015 
00002e 
000215 
000212 
000040 
00007% 
000793 
Q0cn727 
c00000 
901226 
CO1l271 
0900090 
060056 
001000 
004714 
005007 
000000 
904001 
200000 
0035672 
003542 
000000 
003656 
004232 
000010 
000000 
000090 
172600 
005061 
177400 
070000 
002000 
001000 
100000 


000000 


000000 
010000 
003677 
003674 
002437 
000000 
000010 
000000 
900004 
000050 
690010 
0900000 


REC? 
RPAR S$ 
PERMR® 
DATER: 
WOSWS 
WOSR¢ 


KEYRET: 


Clits 
C153 
C223 
C215: 
C2le2; 
C403 
C743 
C7033 
Cle7s 


PARITY? 
TWE1.,1: 


Iwiés 
CLRETS 
CWPARs 
PLACE: 
IINP: 


I.OB8IN: 
HISRET: 


ICRLF 


DMPTEMS 


IZOCT: 
1.080: 


DMPRET: 


IMESS: 
IMOREs 
C10: 


TAPRETS$ 


ROTRYs 
Ci7eks 
BUFF 
wCs 
C70K3 
Cek: 
C1900: 
PKFLGs 


EOTFLG: 


UNITS 


INHFLG: 


IPOEC: 
IPOCT: 
IRECNs 
WORDS 


RRETRY S$ 


WRTRY® 
C43 
C503 
RETRY: 
BAD: 


eBLK 10 
»BLK 10 
»BLK 10 
eBLK 10 
«BLK 20 
eBLK 20 


10000 
PDEC 
POCT 
RELREC 
0 

10 

0 

4 

50 

10 

9) 
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sRECORD # COUNTERS 
sREAD PARITY 
s;PERM READ ERRORS 
;DATA ERRORS, 
s;WORDS WRITTEN 
sWORDS REAT 


sREAD RETRY CONSTANT. 


WRITE RETRY CONSTANT 


00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
90267 
00270 
oc271 
00272 
00273 
00274 
00275 
00276 
00277 
00509 
G0S61 
00302 
00303 
003904 
00365 
00366 
06367 
00310 
00311 
00312 
003512 
00314 
00315 
00316 
00517 
00320 
003521 
00522 
00323 
00324 
00325 
00526 
00327 
00330 
003351 
00332 
09333 
00334 
003535 
00336 
00337 
00340 
00341 
g0354e 
003543 
00344 
003545 


900000 
000030 
000000 
090070 
000100 
000260 
ovuo0d6v 
004600 
17740C 
176000 
001750 
Cueal7 
006029 
000000 
6690909 
Co0c000 
090900 
$00090 
040000 
6000000 
2G2000 
000500 
006000 
03747 

027460 
099000 
c0cc00 
o0ctG5 
v00C00 
0GuU017 
200007 
0009500 


999000 


000000 
903400 
000000 
905960 
CQ0777 
003000 
005000 
177634 
012345 
O0C37T7 
060000 
000000 
000000 
902473 
O023i1 
C02470 
000464 
001530 
002151 
072000 
002543 
177400 


SACRET: 


C303 


ERARET: 


C70: 
C1093 
C200: 
C603 
CUR: 
C17745 
C813 
CBe2: 
CB33 
C2n% 
CTR: 
HOLD: 
Sh 
CRC: 
SAVO>? 
SAV1: 
SAVS>s 
FSTGC:3 
GREET: 
PATTS 


C3747738 
C374Q0: 
DATMS%: 


GWC% 
CKRET? 
GOOD: 
Civ; 
C78 
UCTR:3 


RANOOMS 
RELRANS 


C3400: 


RELTEMS 


COND: 
C777: 
INTEMS 


INTRET3 


Mish: 


C123493 


Cavs 


LNTRANS 
ALLRET: 


RETSSs 
ITEST* 
RTEST: 
ITST?: 
HIST 
ITOK: 
eRANDS® 
Cy7V2aKk: 
TALL: 
M4003 


qOono ogo ga 900 


O1 O 
~~ 
££ 
on 
oN 


~ 


OUDODONKFOOGaO 
£ 
roo) 
ron) 


NOT 
“oY 
Nm 

—{ 


INTW 
REL 
INT 
HISTRY 
TOK 
RANO 
72008 
ALL 

-4 00 
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00346 
00347 
60350 
00351 
00352 
00353 
06354 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00567 
00370 
06371 
00372 
06373 
00374 
00375 
00376 


00377 


00400 
00401 
00402 
00493 
00404 
C0405 
00406 


C0407 
00410 
00411 
00412 
00413 
00414 
00415 

c4#16 


177000 
177600 
000433 
0907609 
O001777 
000532 
060452 
000531 
901036 
Q01301 
052451 
OG1it2e2 
OO LES 
COG1S52 
001556 
OCLS555 
001276 
999009 
GoSO14 
900000 
900400 
C79409 
QG2046 
c10000 
OU4O54 
c00922 
606357 
006355 
006356 
006360 
006361 
006362 


006363 


006365 
005364 
096049 
005365 
090000 
000400 
002336 
26325 
OCeS si, 


OCS77«a. 


QC0776 
C02401 
0U40354% 


040002 
0440593 
05909C4 
654005 
101299 
2509006 
1024090 
051477 


MLOC0% -~1i000 
M2000% +200 
IKEY: KEY 
CMEND: 7660 
Cl777s 1777 
ISM: SMEND 
ICLBIN?: CLBIN 
XREADS RO 
XWRIT?s WR 
XSPACs BAC 
XFILEs wWwEOCF 
XERASS GRAS 
KRREWS REW 
XUNLDs UNLDO 
XGENS c) 
ACHECKs C 
XSPCs SPACHK 
DIGIT: 90 
ICHORZ: CHORZ 
RRs 0 
C4003 400 
C7So43 70400 
C2040% 2040 
Cicks 10900 
I8LD3 BUILD 
—MTA=2Ze2 
SPACE=JUSR aXSPAC 
ROEAD=NSR SXREAOD 
WRITE=JSR AaXWRIT 
WFILE=JSR axFILle 
ERASE=USR AXERAS 
REWINV=EUSR AXAREW 
UNLOAO=JSR @XUNLOD 
CHECK=JSR AXCHECK 
GEN=USR aXGEN 
GETSUSR AIGET 
SPCHK=JSR axsPc 
DMPT: 0 
eL OC 409 
JMP aRTEST 
JSR GITEST 
JSR @AITST 
JMP 272 
JMP ere 
JMP aetl 
BUILO 
SERINT3 STA 04180 
STA i,ISi 
STA 2.782 
STA 3,785 
MOVR 0,90 
STA O04ISC 
SUB 0.0 
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‘TOP OF MEMORY 


sSTART 


INTERCHANGE TEST 
INTERCHANGE TEST(NO WR.) 


TEST LOOP BUILDER 


sINTERRUPT SERVICE ROUTINE 


INTA 0 


sDEVICE COOE TSO Aco 


00417 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 
00440 
OO444 
00442 
00443 
00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
004%54 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
CO4ESB 
00467 
00470 
C0471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00503 
C502 
00503 
00504 
00505 


024201 
122415 
000410 
024230 
122415 
002042 
125400 
122415 
002042 
C02043 
010000 
Qc20900 
O54176 
060610 
C24177 
123400 
024200 
106445 
C30407 
024204 
1os414 
0004035 
0963490 
3962175 
C06348 
OG4402 
C02176 
054213 
3902493 
L77€60 
024777 
030214 
041000 
151409 
125404 
900775 
002213 
54229 
006221 
606224 
00%469 
G00420 


OS4460: 


000420 
004456 
000420 
004454 
0900420 
004452 
000420 
004450 
900420 
OG#&46 
C29420 
OC444% 


TAPINTs: 


KEY: 


KEY1: 


CLBIN: 


HISTRY: 


LDA 


SUBH 1,0+SNR 


JMP 
LDA 


SUBH# 1+0+SNR 


JMP 
INC 


1.C22 


TAPINT 
1,C1i0 


aITTI 
11 


SUB# 1+0+SNR 


JP 
JMP 
IS2 
JP 


STA 3,KEYRET 


aITTI 
aIERR 
0 

a0 


DIAC O,TTI 


LDA 
ANDO 
LDA 


1.C177 
1:0 
1,.C1i5 


SUB# O+1+SNR 


JMP 
LDA 


KEY1+¢+1 
1,C40 


SUBH 0+1+SZR 


JMP 
JSR 
JMP 
JSR 
JSR 
JP 
STA 
Sue 


-120 


LDA 
LDA 
STA 
INC 
INC 
UMP 
JMP 
STA 
JSR 
JSR 
JSR 
JMP 
JSR 
UMP 
USR 
UMP 
JSR 
UMP 
JSR 
UMP 
JSR 
UMP 
uSR 
JMP 
USR 


KEY1 
Q@HIST 
aKEYRET 
JHIST 
CLBIN 
aKEYRET 
3,CLRET 
0+0sSKP 


1ee-l 
2eCWPAR 
0.02 
2:2 
161+SZR 
023 
aCLRET 
SeHISRET 
aICRLF 
AICRLF 
DMPDAT=2 


H2 


DMPODAT 
HS 
OMPDAT 
H6 
OMPDAT 


PAGE 


3iS IT TAPE 


i YES 


iIS IT TT? 


sYES 


;IS Ti TTo 


iYES 

sERRONEOUS INTERRUPT 
,;TAPE INTERRUPT 
s;CARRIAGE ALEARS ERRORS. 
+SPACE PRINTS ERRORS 


sANY OTHER KEY PRINTS AND 
‘THEN CLEARS. 


;CARRIAGE 


;OTHER 
3SPACE 


;CLEAR ERROR BINS 


sPRINT THE HISTORY 


;UNIT 

sWRITE PARITY 
tREAQ PARIY 
;PERM WRITE ERR 
;PERM READ ERR 
tOATA ERROR 


iWORDS READ 


00506 
00507 
00510 
oc51i1 
00519. 
00513 
00514 
00515 
00516 
09517 
00520 
00521 
00522 
00523 
00524 
90525 
00526 
00527 
00530 
00531 


00532 
00533 
00534 
00535 
00536 
00537 
00540 
00542 
00542 
00543 
00544 
00545 
00546 
00547 
00550 
GO551 
00552 
90553 
00554 
00555 
00556 
00557 
005690 
C0561 
80562 
00563 
00554 
00565 
G0566 
Q0567 
00570 
00571 
00572 
06573 


000421 
002220 
024222 
002223 
025056 
002245 
025106 
002245 
025066 
002245 
025116 
CG2245 
025124 
002245 
025156 
031166 
002224 
925136 
031146 
002224 


152400 
Q20375 
113000 
Q0251000 
C2500 
146464 
ONCHOS 
LosLiS 
Qo0772 
024177 
132400 
050351 
ceis¢ad 
026425 
040377 
054225 
022377 
040403 
O0e22h 
006226 
CQGHOG 


52490 © 


050222 
010277 
021076 
191112 
006225 
010222 
030222 
024230 
132414 
000771 
010225 
og2225 


DMPDAT: 


CMPD1: 


JMP 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
JMP 
LDA 
LDA 
JMP 
LDA 
LDA 
JMP 


tFIND THE TOP OF 


SUB 
LDA 
ADD 
STA 
LOA 
SUB 
UMP 


H7 

aHISRET 
1.,OMPTEM 
AaIZOCT 
lyWPARs2 
@AIPOEC 
1.RPAR.2 
aIPDEC 
1sPERMW, 2 
AIPDEC 
1,PERMR,2 
AIPOEC 
LT+sOATER.2 
@IPDEC 

Ll ywOSRe2 
2eWOSR+10.2 
@I.e0BD 

1 »sWOSWs2 
2eWOSWH1092 
aI,DeD 


202 
0,C10K 
0+2 
25092 
1.0.2 
2¢1+SZR 
$.2 


MOVL#H# 212+SNC 


JMP 
LDA 
Sus 
STA 
JMP 
LDA 
STA 
STA 
LDA 
STA 
JSR 
JSR 
0 

SuB 
STA 
iSZ 
LOA 


2eCMEND 
9,3 
0,CMHO 
0,OMPT 

3 y+DMPRET 
0,aCMPT 
Ovet+3 
QICRLF 
aIMESS 
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2.D0MPTEM 
DOMPT 
OyRECs2 


MOVL# 0:0+S2C 


JSR 
ISZ 
LDA 
LDA 


ADMPRET 
COMPTEM 
2,CMPTEM 
1,010 


SUBH 142,.52R 


JMP 
IS2Z 
JP 


OMPO1 
OMPRET 
DOMPRET 


‘N 


tWOROS WRITTEN 


PAGE 


;PRINT UNIT # 
WRITE PARITY 
sREAD PARITY 
;PERM WRITE ERR 
;PERM READ ERR 
;DATA ERR 


iwORDS READ 


MEMORY (4K SEGMENTS) 


;STORE INT® UPPER 
:GET IT BACK 
;CHECK IF 32K 
iWENT TOO FAR 
sSET END MEM 


;PRINT OUT A LINE 
;0F CATA FoR 8 UNITS. 


;CARRIAGE RETURN 
3PRINT MESSAGE TO 
sSTART EACH LINE 


ADVANCE TO NEXT MESSAGE 


:IF THE UNITS ARE ACTIVE 
VEXIT TO DECIMAL PRINTERS. 


+TEST FOR 1 AST UNIT. 


tANOTHER UNIT 
sEXIT TO NEXT OATA, 


00574 
00575 
00576 
00577 
00600 
00601 
00602 
00663 
00604 


00605 
00606 
00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 


00622 
00623 
00624 
00625 
00624 
00627 
00630 
00631 
00632 
006325 
00634 
00635 
00636 
00637 
00640 
CO64)1 
00642 
00643 
00644 
00645 
00646 
00647 
60650 
00651 
00652 
00653 
00654 
00655 
06656 
00657 
00660 


000575 
003521 
003324 
003230 
003234 
003341 
003346 
0063353 
003357 


024414 
1235000 
O4¥O0401 
C00009 
020006 
101160 
634905 
030004 
024003 
020002 
O0S0177 
002000 
060200 


005226 
004625 
105000 
040763 
006223 
920761 
ooe755 
054231 
102400 
940232 
006341 
Q6C222 
Gé4%422 
050343 
153414 
NGC464 
920243 
024210 


125000. 


061022 
024244 
131100 
151240 
060422 
034263 
117405 
000406 
934266 
137405 
900403 
151100 


ol 
MHO 
MH1 
MH2 
MH3 
MHS 
MHS 
MH6 
MH7 


;TELETYPE INTERRUPT 


TTINT: 


CNIOC: 


LOA 
ADO 
STA 
o 
LDA 
MOVL 
LOA 
LDA 
LDA 
LDA 


1,CNIOC 
1.0 
Oveti 


0,ISC 
0:90 
53,IS3 
e,IS2 
1,IS1i 
0,IS0 


INTEN 


JAP 
0602 


ad 
00 


Ss INTERRUPT ERROR 


INTER: 


RD.1: 


ROL: 


JSR 
MIER 
MOV 
STA 
JSR 
LDA 
JMP 
STA 
SUB 
STA 
JSR 
NIOC 
OIA 
LDA 


AND# 11+2,S2ZR 


JMP 
LDA 
LDA 
ADD 
DOA 
LDA 
MOVL 


aIMESS 


Oel 


O,TTINT+3 


aIZOctT 


OeTTINT+3 


TTINT 


3+TAPRET 


G10 


OsROTRY 


aITOK 

oMTA 
le MTA 
2,.C72K 


aIWE2] 
0,UNIT 


L»sPARITY 


1,0 

O0+.MTA 

1+BUFF 
lee 


MOVOR 2:2 


OIA 
LDA 
AND 
IMP 
LOA 
AND 
JMP 


O0+.MTA 
3+C100 


04+39SNR 


RO1. 
3,.C4K 
02+3sSZR 
RDi. 


MOVL 292 


PAGE 


sRESET CARBY 
tRESTORE AC3 


H AC2 
; ACi 
H ACO 
3NIOC 0-9 


s;PRINT ERR MSG 


;SAVE ACO 

sPRINT INT DEV CODE 
tREAG FROM TAPE 
sCLEAR RETRY COUNTER 
s;wAIT FOR NIT, 


sAFTER A "C%# PULSE 
sLATEsREWINOD, ILLEGAL 
sPARITY IS FATAL ERR, 


sSELECT UNIT & PARITY 
sSEND ADDRESS+MA INT BIT 


s;CHECK READ BACK, 
sEXIT IF F TRK 


sEXIT IF NrZ 
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00661 
00662 
00663 
00664 
00665 
00666 
00667 
00670 
océ71 
00672 
00673 
00874 
00675 
00676 
00677 
00700 
00701 
00702 
007035 
0070% 
00705 
00706 
00707 
00710 
00711 
00712 
09713 
00714 
00715 
00716 
00717 
00720 
00721 
00722 
00723 
CO724 
00725 
00726 
C0727 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00740 
OO741 
00742 
00743 
00744 
007%5 
00746 
00747 


451220 
072022 
C61422 
106414 
002441 
024235 
C67122 
063522 
000777 
G30243 
021076 
1013500 
101240 
S41076 
064422 
C20373 
LO74434 
oo0cs2i 
Gst422 
C2437+ 
1qg7414 
000421 
060422 
024249 
107629 
125590 
944242 
330243 
021166 
024235 


091244 
C6U422 
024230 
107404 
0800755 
024252 
125004 
080445 
0350245 
011106 
C2024% 
GCE4477 
107414 
000437 
COEé221 
c20204% 
064422 
107415 


RD1.: 


RO23 


RD3% 


RD4&s 


TWE2s 
IWESS 
RDS; 


MOVZR 242 

OSB 24.MTA 

OiB O,.MTA 

SUB#H 041,.S2ZR 
JMP @AIWES 

LOA LeWC 

DOCS 1..MTA 
SKPBZ .MTA 

JMP ROQ 

LDA 2eUNIT 

LDA 9eREC+2 
INCL 0.0 

MOVOR 0,0 

STA OeREC +2 

DIA iIssMTA 

LDA &.C704 

ANO# 0121,+SZR 
JMP REG 

DIA OeeMTA 

LDA 1,C02040 
AND# 0141+SZR 
JMP RDS 

DIA Qe eMTA 

LOA 1,.C1000 
ANDZR 041 

MOVS 1,1 

STA 1+E0TFLG 
LOA 2,UNIT 

LDA OWOSR+15,2 
LDA 1,WC 

SUBZ 1:0:S2C 
ISZ WOSR;2 

STA O,WOSR410+2 
SKPDZ TTI 

JSR aIKEY 

JMP aTAPRET 

wE2 
WE3 
DIA 
LDA 
ANO 
whP 
LDA 
MOV 
JMP 
LDA 


Oe sMTA 
1,Ci0 
O0¢19SZR 
ROG 
LeROTRY 
1<1+SZR 
RDS 
2+UNTT 
ISZ RPAR12 
LDA 0, INHFLG 
REAGS 1 

AND# 0.41,S2R 
JMP RODE 

JSP AICRLFE 
LOA 3,.C40 
OIA 44.MTA 
ANOR O¢41+SNR 


PAGE 


SSTART UNIT 


sUPOATE RECORD CCUNT 
iiF ITS LATE+REWIND 
;OR ILLEGAL ITS A 
sFATAL ERROR. 

;CHECK FOR PARITY 
sERROR. 


sREAD PARITY ERROR, 


+;C(EQTFLG).O IF NOT EOT, 
SCVEOTPiEo y=). 1 BOT. 


3;SUM THE WORDS 
sREAD ON EACH UNIT. 


;iNFUT KEY STRUCK, 


; IGNORE IF CRE 


iNOT FIRST ERROR, 


3INC READ SARITY. 


;PRINT SARITY 
iSaITChH, 


MESSAGE 


00750 
C0751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00751 
00762 
00763 
00764 
00765 
00766 
00767 
00770 
00771 
00772 
00773 
00774 
00775 
C0776 
00777 
01000 
01001 
010902 
01063 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 
01014 
03015 
01016 
C1017 
01020 
01021 
01022 
01023 
010ee 
01025 
01026 
01027 
010350 
01031 
01032 
01033 
01034 
01035 
01936 


000403 
006225 
gc2751 
020237 
064422 
1o7415 
000493 
006226 
002477 
006226 
003321 
S24245 
OQEZ25 
J06226 
OG2707 
026243 
025076 
125100 
125220 
006245 
66422 
020267 
107400 
J06246 
006226 
002714 
920237 
US4h 77 
107404 
Q0907CS2 
Q10252 
020252 
024251 
196415 
000404 
C36357 
LITT? 
CCOE17 
030243 
ULliils 
o251%6 
1010090 
090665 
006221 
006246 
806226 
002722 
002211 
O54231 
102400 
040252 
C5341 
054622 
930253 
233414 


ROGs 


RO7: 


REE: 


JMP .+3 

JSR AIMESS 
SADTAP 

LDA 0,.C2K 
OIA 1ls+eMTA 
ANO# 0%1,4SNR 
JMP 443 

JSR AIMESS 
MRPC 

JSR AIMESS 
MHO 

LDA 1,UNIT 
JSR AIZOCT 
JSR aAIMESS 
MRECN 

LDA 2.UNIT 
LDA 1,+REC+12 
MOVL 141 
MOVZR 161 
JSR @IPDEC 
DIC 1,,MTA 
LDA 0,C1774 
AND O¢1 

JSR @IPOCT 
JSR AIMESS 
MRCRC 

LOA 0.C2K 
REAOS 1 

AND 04+1,.S2R 
JMP ROY 

ISZ RDTRY 
LOA Os¢ROTRY 
LDA 1,RRETR 
SUBH Ov1¢SNR 
J*P ROT 
SPACE 

Pa | 

JMP RD. 
LOA 2,UNIT 
ISZ PERMR,»2 
DSZ RPAR»2 
MOVH 9040 
JMP ROY 

JSR AICRLE 
JSR alPocT 
JSR JIMESS 
MREG 

JMP DIWELL1 
STA 34TAPRET 
SUB 0-9 

STA OewWRTRY 
wSR witToK 
HTAC 14.4TA 
LOA 2+C4 
ANO#B 142952 


PAGE 


s"BAD TAPEn 


s"RECORD#" 


;THE RECORD NUMBER, 


s"=SCHECK WORD" 


iBYPASS RETRY IF Sw5 SeT 


SHALL A ATTEMPT 
3;TO RE-READ BE MADE, 


iNO GIVE UP 
;YES BACK SPACE, 


;PERM READ ERROR, 

s; INCREMENT PERM ERROR 
s;DECREMENT READ PARITY 
360 TO EXIT ROUTINE 


TW=STATUS AFTER A READ 
;COMMAND ON UNIT# 
sWRITE ON TAPE 


;CLEAR RETRY COUNTER, 
sWAIT rOR UNIT. 


t2F UNIT WRITE LOCKED 
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01037 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
91050 
01051 
01052 
01053 
01054 
01055 
01056 
01057 
01060 
010614 


01062 
01063 
01064 
01065 
01066 
010567 
01070 
01071 
01072 
01973 
01074 
01075 
01076 
01077 
01100 
01101 
01102 
91103 
o01104 
01105 
01106 
01107 
01110 
Q11i1 
01112 
01113 
01114 
01115 
01116 
01117 
01120 
01121 
61122 
01123 
01124 


000564 
Oo4422 
030343 
153414 
002662 
024254 
107999 
029210 
167900 
065922 
C24234 
066022 
061422 
1g64i4 
002651 
024235 
920320 
ve3G2e2 
Q&7122 


060177 
000406 
N2c204 
G62077 
G60177 
192450 
600462 
000540 
0590277 
Da2077 
Q60177 
050401 
900540 
064422 
020249 
123620 
101308 
046242 
igiog4s 
G902231 
020375 
1074614 


052212 


0592435 
021076 
101590 
101249 
041076 
020235 
624254 
1064900 
N51422 
206414 
000536 
030245 


WRI: 


JMP WEL 

DIA is MTA 
LDA 2+C72K 
AND& 142+SZR 
JMP aIWwE2 
LOA 1,.C50 
ADD Q71 

LDA OePARITY 
ADD 0,1 

DOA 1..MTA 
LDA 1,BUFF 
Q0B 1+.MTA 
DIB 04.MTA 
SUB# 0+1,5ZR 
JMP aGIWEZ 
LOA Lewe 

LDA OeRELRAN 
DOC O+.MTA 
DOCS 1+.MTA 


sINTERRUPT CHECKING 


INTEN 


WR2028 


WR 


INTEN 

JMP . 

LDA 0,C490 
MSKO Q 
s;ALLOW INT. 
SUB 0,0 

UMP .+2 

JMP ILLI 
INTCS 

MSKO 0 
INTEN 

uMP +h 

JMP NOIT 
DIA 1a eMTA 
LDA 0,C1i000 
ANOZR 1.0 
MOVS 0,0 
STA OEOQTFLG 
MOV 0+¢0:+SZR 
JMP ATAPRET 
LDA 0,C704 
ANDR 0414+S52R 
JMP GIWES 
LDA é€+UNIT 
LOA O+REC +2 
INCL 90,0 
MOVOR 0,0 
STA OeREC+2 
LOA OywWwe 
LOA 1,SUFF 
SUB Ol 

DIS 0,.MTA 
SUB# 0:1:S2ZR 
JMP WES 

LOA @-.UNIT 


PAGE 
;ITS A FATAL ERROR 


;AFTER A "C# PULSE 
SLATE SREWINDe ILLEGAL +PARITY 
sITS A FATAL ERROR 


;SEND WRITE COMMAND 
;AND MEMORY ADDRESS, 


71S AODRESS SENT 
;DIONT GET THERE ITS 
3A FATAL ERROR, 


sRANDOM PRELOAD TO TRY 
+70 CAUSE 1 0AD FAILURE 
;SEND WC AND START 


sENABLE INTERRUPT 

sWAIT FOR ¥YAPE INT. 

sRETURN HERE FOLLOWING IWT, 
;DISASLE TAPE INT 


;ERROR RETURN BAD INT 
sINT OFF 

sALLOW TAPE INT 
sENABLE INT 

SHOULD INT NOW 
;ERRORs NO INT 


sC(LOTFLG)=0 IF NOT EOT 
;C(EOTFLG)=1 IF EOT 
+;SKIP IF NOT EDT 

SExL? 2F <2OT 

sir ITS LAYE REWIND 

sOR ILLEGAL ITS A 
;FATAL ERROR. 
tINCREMENT RECORD 


:;START ADDRESS+wWC 
;SHOULD EGUAL THE 
CONTENTS CF THE 

;TAPE ACORESS REGISTER, 
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01125 
01126 
01127 
01130 
011351 
01132 
01133 
01134 
01135 
01136 
01137 
01140 
01141 
01142 
01143 
01144 
01145 
02146 
01147 
01150 
021151 
01152 
01153 
01154 
02155 
01156 
01157 
01160 
01161 
02162 
01163 
01164 
61165 
01166 
01167 
01170 
01171 
01172 
01173 
03174 
01175 
01176 
01177 
01200 
01201 
01202 
01203 
01204 
01205 
01266 
01207 
01210 
01211 
01212 
01213 


024374 
060422 
107415 
000462 
024252 
125004 
000442 
011056 
020244 
OS44u77 
Lo74yi4 
000435 
0CS221 
020204 
064422 
107415 
009403 
006226 
S02751 
020237 
0644522 
107%15 
9090403 
0062256 
002741 
CG6226 
063321 
024243 
025223 
005225 
092707 
039243 
025076 
125100 
125220 
006245 
020266 
CE4477 
1074604 
OGd416 
0904504 


L77777 


010252. 


020252 
024255 
106414 
000630 
030243 
011066 
0159056 
1¢10090 
006364 
G0CE2Z0 
050245 
O21146 


WR4YS 


WRSs 


WRE: 


LOA 1,C02040 
DIA O+¢,fiTA 
AND# 0O41+SNR 
JMP WRG 

LDA 1IseWRTRY 
MOV 1+1+SZR 
JMP WRS 

IS2 wPAR,2 
LOA OvyINHFLG 
READS 1 

AND# 0+15SZR 
JMP WRS 

JSR DICKLF 
LDA C,C49 
DIA 14.MTA 
AND# 041,SNR 
JMP .+3 

JSR AIMESS 
BADTAP 

LOA 0,C2K 
DIA 14+.MTA 
ANDH 042,SNR 
JUMP +3 

JSR AIMESS 
MWPE 

JSR AIMESS 
MHO 

LOA 1,UNIT 
JSR ATZOCT 
JSR @AIMESS 
MREEN 

LDA 2 UNIT 
LOA 1+RECe2 
MOVL iol 
MOVZR Lei 
JSR @AIPDEC 
LDA 0,C4K 
READS 1 

AND 041+S2ZR 
JMP WRE 

JSR BAC 

“i 

ISZ WRITRY 
LDA OsWRTRY 
RDA LTeRETRY 
SUB# 0+1,5S2R 
JMP WR,W 

LOA 2,UNIT 
ISZ PERMWe2 
DSZ WPAR:2 
MOV#B OG 
ERASE 

JMP WR+1 

LDA 2eUNIT 


LDA OsWOSW+1902 


PAGE 


3NO PARITY ERROR, 


;NOT FIRST ERROR, 


3IS SWITCH70+« PRINT 
;PARITY MESSAGE, 


:"BAD TAPE" 


S"WRITE PARITY" 


"RECORD #" 


;THE RECORQ NUMBER, 


SBYPASS RETRY IF SwWa SET 


;SPACE OVER THE 
sERROR RECTRO, 


TEST RETRY COUNTER 
s;TRY AGAIN SAME SPOT, 


TINCREMENT PERM ERROR 


SREMOVE RECOVCRTY PARITY ANDO 
sERASE TAPE, 


s;GNE GETS HERE 
3A GOSD wRIite, 


AFTER 
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01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
03250 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
Q124i1 
O1l2e4e 
01243 
01244 
01245 
o1246 
01247 
91250 
01252 
01252 
01253 
01254 
01255 
01256 
01257 
01260 
01261 
01262 
01263 
01254 
01265 
01266 
01267 
01270 
01271 
01272 
01273 
01274 
01275 


01276 
01277 
91300 


024235 
122422 
611136 
OF114%56 
0463710 
066350 
002231 
OC6é221 
006226 
802757 
O242e43 
005223 
002231 
606226 
003514 
Geb243 
095223 
f006+2 
Gadge77 
006226 
093472 
024243 
605223 
O0CES4 
B40255 
906224 
006246 
024256 
006246 
006226 
9027714 
660755 
006221 
CCEZ4K6 
G06226 
003929 
OO9746 
649256 
066221 
006246 
02%255 
GHS6E24E 


OGe226. 


905044 
000736 
o06221 
006246 
006226 
003067 
0007351 


125520 
046522 
OGC4035 


wos 


SPACHKS 


LOA 1.WCc 

SUBZ 1159.SZC 
ISZ wOSkwee 

STA O,WOSW+100e 
SKPOZ TTL 

JSR GIKEY 

JMP GTAPRET 

JSR AICRLE 

JSR AIMESS 
MLOCK 

LOA 1,UNIT 

JSR AIZOCT 

JMP ATAPRET 

JSR @AIMESS 

MBI 
LOA 1.,UNIT 
JSR aIZOcT 
WMP WR2.i 
INTOS 

JSR @IMESS 
MTOE 
LOA 
JSR 
JMP 
STA 
JSR 
JSR 
LDA 
JSR 
JSK 
MWAE 
JMP WEI. 

JSR DICRLFE 
JSR AIPOCT 
JSR @AIMESS 
MSTAT 

JMP WE1.1 

STA 0+BAD 

JSR DICRLE 
JSR aIPocT 
LOA 1+B8A0 

JSR GIPOCT 
JSR @AIMESS 
MWFAE 

JMP WELLL 

wSR DICRLE 
JSR arIPccrT 
JSR a@IMESS 
MWES 

JMP WE1.1 
sSPACE TO cOr 
SUBZL 1,41 
STA lseFItL 
JMP BAC+2 


1,UNIT 
aTZOcT 
WR2.1 
0.8AD 
MJICRLF 
alPOcT 
1,BAD 
@IPOCT 
@IMESS 


LG 
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3;SUM THE WORDS 
>WRITTEN ON EACH 
;TRANSPORT, 

sKEY STRUCK, 


S"WRITE LOCK ON UN:T* 


;EXIT WRITE COMMAND 
twITH FATAL CRROR. 


sADDRESS SENT 


;ADDRESS RCVO 
SMSSCNT+RECEIVEG. ADDRESS 


;REGISTER FAILS TO LOAD, UNIT" 


;PRINT STATUS 
P4HSERROR STATUS AFTER 
3A #C" PULSE, UNTT" 


sPRINT GOOO DATA, 


;PRINT BAD DATA 
;"ADORESS+WC+DIB READING, 
FAILURE WRITING UNIT" 


CNTL 


"=STATUS XFTER A WRITE 
sCOMMAND ON UNIT? 


tACi= 


sSPACE SUBROUTINE 


91301 
01302 
013503 
01304 
02305 
013506 
01307 
01310 
01311 
61312 
01513 
01314 
013515 
01316 
013517 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01232 
01333 
01334 
013355 
012336 
01337 
01240 
Q1341 
013542 
01343 
01344 
01545 
01346 
01347 
01350 
01351 
01352 
01553 


C1354 
91555 
61356 
01357 
01360 
01361 
91362 
01363 


102460 
0490517 
054257 
006341 
030243 
024250 
022257 
192113 
100401 
024204 
147990 
0465022 
075422 
063122 
963522 
OCO777 
061422 
116400 
025076 
022257 
101112 
is7002 
166400 
045076 
024479 
125004 
000421 
id1lile 
1900%90 
117014 
090425 
910257 
954422 
029343 
R974i5 
002257 
0C6221 
CGS6246 
006226 
O031C05 
G24 o4s 
0045223 


002257. 


026247 
129,12 
124409 
125409 
137345 
000757 
LGiite2 
162400 


BAC: 


BACK1: 


BAC.1: 


SUB 
STA 
STA 
JSR 
LDA 


0.¢ - 
O»FILFLG 
3eBACRET 
aITOK 
2eUNIT 
LOA 1,C30 

LOA 0,868ACRET 
MOVL#B 0+0+SNC 
NEG O¢O0+SKP 
LOA 1.C40 

AOD 2.1 

DOA 1¢4.MTA 
DIS 3,.MTA 
DOCS 0+.MTA 
SAPBZ MTA 
JMP BACKI 

DIS O+..MTA 
SUB 0.3 

LEA L+RECe2 
LDA 0+¢aBACRET 
MOVL# 0,£0.S5Z2C 
ADD 341,SKP 
SUS 3741 

STA 1+RECe2 
LOA 1,FILELG 
MOV 1+1,S2R 
JMP BAC,.1 
MOVLE 0:+0+52C 
NEG 0,0 

ADD# 0+3+S2ZR 
JMP BAC.2 

ISZ GacRET 
DIA 1,4.MTA 
LDA 0,.C72K 
ANOD#® 0512,+SNR 
JMP @ABACRET 
JSR aAICRLF 
JSR AIPOCT 
JSR @AIMESS 
MSPST 

LDA 1,UNIT 
JSR aIZ0cCT 
JMP ABACRET 


+SPACz UNIT 


Aya 


RECORDS 


3I1F ARGUMENT FOLLGWING 


iCALL IS (=) 
>BACKWARD, 


*RVS COMMAND 


SPACE IS 
(+) =FORWARD, 


PAGE 


+SAVE NUMBER OF RECORDS. 


sSTART THE TAPE 


MOVING. 


s;AC3a-#REC COUNTED BY MTA 


;UPDATE THE RECORD # 


s;ACO=Ne A 
+SFACE TG EOF 
iN SHOULD=wWC 


+;SKIP IF N=we 
sERROR 


;INCREMENT RETURN 


tCHECK THE STATUS, 


tPRINT STATUS, 


s"=STATUS aFTER SPACE. 


*;PRINT UNIT # 


SEXPECTING EOF TO STOP SPACE, 


sACO=LARGE WC. 


;RELREC= #REC 
LDA 1,difRECN 
MOVYL# 1219S2C 
NEG 1.1. 

INC iel 

AUOH 1453,SNR 
JMP SAC,.5 
MOVLE 310+¢S2e 
NEG 0:0 


tREC SPACED NOT EQUAL THAT 


sMAKE ACI 


;COUNT Ci 


MAKE 


Oo. PO.tiiVve 


ALRGE WC 
AC3Z=(-)AREC SPACED 
fy FILE(+ OR =) 


POSITIVE 


SPECIFIED 


T=orHREC SPACED 


UNIT 


" 
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01364 


01365 
91366 
01367 
01370 
01371 
01372 
01273 
01374 
01375 
013576 
01577 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01467 
91410 
01431 
61412 
01413 
G14i4 
OL415 
C1416 
01417 
01420 
91421 
01422 
01423 
0142+ 
01425 
01426 
01427 
024306 
01431 
01452 
01433 
01434 
01435 
014356 
01437 
01440 
01441 
01442 
01443 
O1444 
OL445 
01446 
01447 
01450 


040350 
044302 
Q54302 
005226 
003363 
024245 
C06225 
IGee26 
003377 
Q22257 
1Gi115 
Qo0ec3 
JES226 
O034¢i1 
Q245300 
605223 
906226 
063412 
024502 
124400 
906225 
924410 
125005 
000725 
906226 
UvO3425 
Q24301 
806223 
GEC720 
UtoU0S 
Q54+261 


QC4595 


~J Nf) 
~J PO TO 


003125 
COC#s6 


BAC.2; 


FILFLS 
ERAS$ 


Ge 


ZACQ=H SPECIFIED 
sAC1l= !#REC] 
STA 8+SAVO 
STA 1,SAV1 
STA 3,SAV3 
JSR @AIMESS 
MSPCl1 

LDA LUNIT 
JSR AIZOCT 
wSR @IMESS 
MSPC2 

LDA D+ABATRET 
MOVLH 040;SNC 
JMP +3 

JSR @IMESS 
MSPC3 

LDA 1,SAVO 
JSR aIZOcT 
JSR SIMESS 
MSPC4 

LOA 1SAV3 
NEG 1,1 

JSR alZoct 
LDA 1.eFILFLS 
MOV 142+SNR 
JMP GAC.S 

JSR aIMESS 
MSPC5 

LOA 1,.SAV1 
JSR arZoct 
JMP BAC.5 

9) 
STA 
JSR 
OLA 14,.MTA 
LDA 0.C4% 
ANO# 0.51,52R 
JMP WEOFL 
LCA 2eUNTT 
LDA 1,C7¢6 
ADD 2,1 

DOAS 14,MTA 
SAPEZ MTA 
JMP acl 

JSR XEOT 

DIA 1,..MTA 
LOA 0,C72K 
AND#R 0.41:+S52R 
JMP FERAL 

JMP @AERARET 
JSR AICRLFE 
SR AIPOCT 
~oR GBIMESS 
oa. oy a 

wiP WEOFF 


Z+ERARET 
TOK 


In ; 


PAGE 


i+)< AC3= HSPACEO (-) 


;SAVE ACA 

ACL 

EF ACZ3 
T"SPACING ERROR, UNIT! 
sPRINT UNI¢y 3 


S"COMMAND YS SPACEN 


pte 
SPRINT # REC 


;"RECORDS nETECTED=" 


;PRINT #REZ SPACED 


S"RECORDS IN FILEsn 


;=1 IF NOT SPACING TO EOF 
sERASE TAPE 
wWAIT UNTT READY. 


sUNTT IS WRITE LOCKED, 


SSTART THe TAPE 
tWATT CNTL FREE, 
sTEST END OF TAPE FLAG 


;CHECK STATUS FOR ERROR 


PY=SSTATUS 
7ON UNIT" 


AFTER ERASE 
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OS4261 
004456 
054422 
920253 
107414 
000425 
020263 
107000 
107499 
G$20265 
167000 
cSc245 
147000 
065122 
063522 
O0U0777 
OI44S2 
D11C76 
064422 
C2054%3 
107414 
090413 
929372 
107435 
C6o415 
092261 
OS6221 
YG62246 


095144 
000771 
Qd6221 
006226 
993164 
O6c7S5 
060422 
O24 2% 
107629 
125300 
O5424%2 
001400 
G63522 
000777 
025243 
G61022 
064422 
aev215 


200776 | 


0901409 


WEOF S$ 


wWEOFZ: 


XEOT: 


TOK: 


STA 3,ERARET 
JSR TOK 

OIA 1e.MTA 
LDA O+C4 
AND#H 041-528 
JMP WEOFY 
LDA 0,C0100 
ADD 0,] 

AND 0:21 

LDA 0,C6é90 
ADD O51 

LOA 2,UNIT 
ADD 241 
DOAS 14.MTA 
SKPSZ MTA 
JUMP onl 

JSR XEOT 
ISZ RECs2 
DIA 1,..MTA 
LDA 0,C72K 
AND# 041.+S52R 
JMP WEOF2 
LOA 0,C400 
ANS# 0O4+1,+SNR 
JUMP WEOFS 
JMP @ERARET 
JSR aICRLF 
JSR AIMESS 
MLOCK 

LOA 1,UNIT 
JSR a@lZocT 
JMP AERARET 
JSR GdICRLE 
JSR ALPOCT 
JSR aIMESS 
MEOFS 

uMP WEOFF 
JSR aICRLeF 
JSR adIMESS 
MECFE4 

JMP WEOFF 
OTA O«.MTA 
LOA 1,.Ci000 
ANOZR 0-1 
MOVS 1,1 
STA 1+EQTFLE 
JMP 0,43 
SKP8Z MTA 
JMP 1 

LOA 0UNIT 
OGA GaeMTA 
DIA 15.MTA 


MOVRE Lala SNC 


JMP on™ 
JMP 0.3 


PAGE 
tWRITE EOF’ oe 


sWRITE LOCKED UNIT, 


(CALCULATE PARITY 
sFOR 729 TRACK 


+START XPORT 


tWAIT CNTL FREE, 


;CHECK FOR STATUS 
;ERROR, 


;NO EOF STATUS, 


;"WRITE LOCK ON UNIT" 


iPRINT UNIT# 


;PRINT STATUS 
SY=STATUS AFTER A WRITE 
EOF COMMAND ON UNIT" 


"NO EOF STATUS DETECTED 
SON WRITING A EOF," 


iSET OR CLEAR SOFT 
;EOT FLAG. 


,;TAPE UNIT O-Ke? 
STHIS ROUTINE wilh 
tWAIT UNTIL THE 
;UNZTT BECONES READY. 
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01540 
02541 
01542 
01543 
01544 
91545 
01546 
01547 
02550 
Q155% 
91552 
01553 
01554 
01555 
01556 
01357 
0156C 
01561 
01562 
01563 
01564 
01565 
01566 
01567 
01570 
01573 
01572 
91572 
01574 
01575 
01576 
C1577 
016900 
01602 
01602 
01603 
01604% 
01605 
01606 
01607 
01610 
O1621 
01612 
01613 
01614 
91615 
01616 
01617 
01620 
01621 
01622 

1623 
01624 
01625 
01626 


054231 
054767 
024230 
040243 
147000 
065122 
162520 
041075 
002231 
054231 
Ou4756 
G22273 
Goc7ET7 
1025421 
102520 
G4¥0393 
0543504 
Q21409 
C490305 
Q10204 
929234 


o70422 
924283 
1335404 
Ogouou 
64477 
G2024] 
132404 
202001 
020306 
0403190 
014203 
906510 
0296365 
030310 
143400 
G30219 
G24263 
147405 
090414 
CE4477 
C50241 
133404 
000429 
G2e416 
950331 
143415 
004430 
150006 


STA 
JSR 
LDA 
LOA 
ADD 


3+ TAPRET 
TOK 
1,C10 
2eUNIT 
2e1 


DOAS Le+eMTA 
SUBZR 0,0 


STA 
JMP 
STA 
JSR 
LDA 
JMP 


SUBOL 0+¢0+SKP 


OsREC+2 


@TAPRET 


3eTAPRET 
TOK 
1,C20 
REW1 


SUBZL 0,0 


STA 
STA 
LOA 
STA 
ISz 
LDA 
STA 
OSZ 
LOA 
STA 
LDA 
DOA 
OTA 
LOA 
AND 
JAP 


OeFSTGC 
3+GRET 
0+0+3 
OsPATT 
GRET 

0 +BUFF 
0.fT0xX0 
IDxo 
OewC 
0+GwWC 
2yUNIT 
29eMTA 
2eeMTA 
1.C100 
142+SZR 
GG.e2 


REAGS 1 


LOA 
AND 
AOC 
LOA 
STA 
OS2Z 
JMP 
JSR 
LDA 
AND 
LDA 
LUA 
AND 
WMP 


2,PKFLG 
1.2,S2ZR 
040sSKPF 
0,C37477 
0+DATMSK 
FSTGC 
CC,2 
aPATT 
2,DATMSK 
210 
2sPARITY 
1,€C160 
2e1sSNR 
6G,1-1 


READS 72 


LOA 
AND 
JP 
LOA 
LOA 


2@yPKFLG 
1+29S2Z2R 
GG,4 
1+C5SGi2 
2eC377 


ANC# 2+39sSNR 


JSR 
cOoM 


GS,3 
292 


PAGE 
tREWIND eee 


tWALT UNIT READY 


SSTART THE REWIND, 


SREWIND/UNLOAD,,,. 


+;CHECK DATA... 

;GENERATE nATA,., 

sC( BUFF) =START ADDRESS 
;C (WC) =<NOMBER OF WORDS 
+WORD FOLLOWING THE CALL 
sDEFINES TOE PATTERN, 


;SELECT UNIT TO 
SOETERMINE THE 

57-9 CHANNEL MASK 
}FOR CHECKING DATA, 


s;CHECK IF PACK MODE 


+;GEN/CHECK FIRST SwITCH 


;GENERATE CATA 


S PARITY SELECT 00D? 
XIT IF 90D PARITY 
PACK 


sCHECK TF MODE 


C= 


GO TO PACK MOCE ZERO 


ve 


IF LSS -2ZERG 


01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01650 
01651 
01652 
01653 
01654 
02655 
01656 
01657 
016606 
01661 
02662 
01663 
01664 
01665 
01666 
01667 
01670 
Q167i 
01672 
01673 
01674 
01675 
01676 
01677 
G1i700 
01704 
01702 
01763 
01704 
01705 
01706 
01707 
01710 
01711 
Q1712 
01713 
01714 
01715 


143415 
004405 
942029 
010311 
000754 
002304 
147400 
123¢c900 
0014C0 
Q965012 
024413 
030272 
143415 
OO4%771 
O20271 
143415 
004+ 766 
o402e70 
143445 
004763 
900756 
924252 
054312 
O+4% 256 
920305 
090407 
006221 
9062e1 
996228 
903212 
030243 
911126 
G30393 
176120 
1357936 
002312 
006221 
024020 
066223 
024325 
006c4s 
024255 


006246 . 


0292354 
C2429 
106400 
006223 
930243 
025076 
122100 
125220 
006245 
Q24243 
006223 
002322 


CPMZ$ 
CKER 3 


CKes 


CK3: 


AND# 2,50+SNR 
JSR GG.3 

STA 0,dI1DXKO 
ISZ GWCc 

JMP GG 

JMP AGRET 
AND 2,1 

ADD 1-0 

JMP 0,43 

S9lz 

LOA 1,CPMZ 
LOA 2,.C83 
AND# 240¢SNR 
JSR GG,3 

LDA 2.CE2 
ANDH 290+SNR 
JSR GG,3 

LCA 2,CB1 
AND#H 2+0+SNR 
JSR GG.3 

JMP GG.1-1 
24252 

STA 3eCKRET 
STA 1-+BAD 
I3SZ FSTGC 
JMP CKi 

JSR aAICRLE 
JSR AICRLFE 
JSR @IMESS 
MHEAD 

LDA 2,UNIT 
ISZ OATER,2 
LDA 2sFSTGC 
ADCZL 3.43 


ADDZR 243eSE2Z 


JMP ACKRET 
wvSR GAICRLE 
LDA 1,IDX90 
JSR aAIZOCT 
LDA 1,G6000 
JSR AIPOCT 
LDA 1-<BAO 
JSR AIPOCT 
LOA 0+BUFF 
LOA 1,I10Xx0 
SUB Oel 
JSR arIZoctT 
LDA e2,UNIT 
LDA 1:,:REC+2 
MOVL lel 
MOVZR lel 
JSR @AIPDEC 
LOA LyUNIT 
JSR sIZCCT 
UMP ACKRET 


PAGE 


+ADD 12 IF MSS ZERO 
sSTORE IN MEMORY 


71S LSB ZERO? 
sADD 12 TO ZERO CHAR 


:21S MIDDLE CHAR ZERO 
sADD 12 TO ZERO CHAR 


725° NSB ZERO? 
+ADD 12 TO ZERO CHAR 


3A ERROR DETECTED ON 


s;OONT PRINT HEADER 
s"ADDR GCOD BAL WCRD 
sREC.# UNIT" 


sEXIT IF>3 ERRORS, 


;PRINT ADORESS 
:GO0D DATA 


;BAO DATA 


+WORD# 


sRECORD# 


20 


01716 
01717 
01720 
01721 
01722 
01725 
01724 
01725 
01726 
01727 
01739 


01731 
91732 
01753 
01734 


01735 
01756 
01737 
01740 


01741 
01742 
01745 
o1744 
OL74S 
O1746 
01747 


01750 
01751 
01752 
01753 
01754 
01755 
01756 
01757 
01760 
01761 
01762 
01765 
O1764 
01765 
01766 


01767 
01770 
BL771 
01772 
01773 
01774 
01775 
91776 


192400 
040276 
040277 
006305 
026026 
030310 
143400 
040313 
Lo64i4 
004726 
0203135 


064422 
034263 
137494 
000444 


064477 
O50241 
133464 
C0040) 


024331 
Lo7400 
og44ey 
024267 
107700 
094421 
C0444 


G24279 
107700 
127629 
127629 
094413 
D24e27)1 


000425 


054410 
030276 
135099 
37520 
123006 
172400 
050276 
C924¢01 


PCKG 


LPCG 


Oc 
O,LFC 
0,CRC 
aPATT 
1,dI0X9 
2:0ATMSK 


SUB 
STA 
STA 
JSR 
LDA 
LOA 
AND 2.40 

STA 0.6000 

SUB# 0%91,52ZR 
JSR CKER 

LDA 0,G00D 
sSEPARATE BYTES 
+7TRK OR STRK 
DIA 14.MTA 

LDA 34€109 

AND 1,3.S2ZR 

JMP CRCG 

,7TRAK LPC GEN 
READS 1 

LDA 2sPKFLG 

ANO 1,2,S2R 

JMP .+1 

t7TRK NON PACK 
LOA 1.0377 

AND Ol 

JSR LPCG 

LOA 1,C1774% 
ANOS 012 

Wok &PCG 

JMP CC,3 

s7TRK PACK LPC 
LOA 1,€81 

ANOS Ol 

ANSZR 1ei 

ANOZR ial 

JSR LPCG 

LOA 1,.Cb2 

ANOZR Ol 

ANDZR lel 

ANOZR lal 

ANO2ZR Lell 

JSR LPCG 

LDA 1,CB3 

AND 9421 

JSR LPCG 

JwMP CC,3 

s7TRK GENERATE 
STA 34LPCSR 

LOA 2eLPC 

MOV 1:3 

ANOZL 2,3 

ACO lee 

SUB 3:42 

STA 2eLFC 

JMP aLlPCGR 


PAGE 


i;CHECK THRE DATA 
iMASK FOR 7-9 
CHANNEL TAPE 


s;CHECK ERRGR 


AND COMPUTE PARITY 


iIF OTRK 
;GEN CRC 


;iF PACK MODE 


LPC GEN 


a? 
m 
2 


LPec 


2i 


01777 


02000 
02001 
02002 
02003 
02004 
02005 
02006 


02007 
02010 
02011 
02012 
02013 
02014 
026015 
02046 
o2017 
02020 


02021 
C2022 
02023 
G202e% 
02025 
02026 
02027 
02030 
02051 
02052 
02033 
02034 
02035 
020356 
02037 
C2049 
02041 
02042 
02043 
02044 
02045 
02046 


02047 
92050 
02051 
02052 
02053 


000000 


024331 
1074900 
004500 
131009 
024267 
107700 
OG4474 


020277 
064516 
145000 
064514 
ELOosts 
Coo70s 
cCo44e2 
030263 
147405 
O0G44%6 


020254 
£25708 
C40277 
930267 
Cés4Z22 
1474090 
222415 
Cy2504 
S4¢3500 
044303 
060477 
024241 


107404° 


002304 
006226 
003437 


030243 
025076 
L25200 
seoe20 
004245 


CC.43 


CC.3:3 


5 ‘ 
;9TRK CRC GEN 
sLEAVE BYTE 1 
LOA 1,C377 
AND Q,71 

JSR PAR 

MOV 1.2 

LOA 1401774 
ANOS 041 

JSR PAR 
s;GENERATE CRC 
SALGORITHM FOR SATA P01234°67 
+U.O0LO XOR NEWe START WITH CLO=0 
t21,SHIFT RIGHT ZNO AROUND (9B81TS) 
33,IF P=4i COMP. 2345 

3G.AT END CO%4%Pe ALL BUT 284 

LOA O+CRC 

JSR GCRC 

MOV 2el 

JSR GCRC 

ISZ GwWC 

JMP CC 

DIA 14.MTA 
LOA 2,C100 

AND 241 2SNR 
JMP CC,.5 

;COMP ALL BUT 
LOA 1.C50 

LDA 2,C727 
AND Ol 

COM 0.90 

AND 2,0 

ADD O41 

LDA 0,C377 
ANCS 1:40 

STA 0-4CRC 

LDA 29Ci774% 
DIC 14,MTA 
ANO 2,1 

SUBHK 1,0,SNR 
JMP AGRET 

STA Q@sSAYO 
STA 1,SAV1 
READS G 

LDA 1+ PK FLG 
AND 0,1 SZR 
JMP AGRET 

JSR @aLMESs 
MCKC 


+y AC1l, BYTE 2 IN ACO 


;GEN CRC 


sMOV 2ND ByTE UP 


;COUNT WORDS 
iSKIP IF STRK 


224 


sAC1=50 PART 
;COMP ALL 

:MASK ALL BUT 
sADD 244 BACK IT? 


KET ese 
RROR IN CHECK CHARIS) 


;SKIP CRC IF PE 


i"ERROR IN 
tRECORD 3" 


CHECK CHARACTER 


LOA 2sUNIT 
LOA 1:+REC+2 
MOVL det 
MOVZR 1s1 
JSR BIPCEC 


006226 
0903462 
024306 
006246 
006226 
093466 
024301 
006246 
002350% 
GO90782 
G20276 
261505 
002504 
024257 
1234990 
O7G477 
034241 
157465 
COG734 
103129 
030279 
O00 722 


034423 
1764690 
CS4444 
135000 
175222 
C1044) 
17500% 
030775 
G34436 
475200 
934210 
L705 
000404 
175064 
176400 
175903 
C5H372 
1é7c60 
092402 


GG00C0 


054421 


£55000 
117520 
122000 
162409 


034372 


201225 
090410 


CO wos 


PARS 


JSR 
MGD 
LDA 
JSR 
JSR 
MBD 
LOA 
JSR 
JMP 
IMP 


MaIMESS 


1,SAVG 
aIPOCT 
@IMESS 


zeSAVi 
aIPOCT 
aGRET 
CCat 


PAGE 
;"GOOD0" 
;PRINT GOOD DATA 
;"6ADH 
sPRINT BAD DATA 


SENS Tews 
sERROR IN CHECK CHAR(S) 


LOA O,LPC 

MOVS 040,SNR 
JMP AGRET 

LDA 1,037400 
AND 1,0 

READS 2 

LOA 3,PKFLG 
AND 2:3:+SNR 
JMP CC.6 

ADOZL 0,0 

LOA 2,C51 

JMP CC,.6+1 
sCOMPUTE PARITY 
STA 3+PRET 

SUB 3.3 

STA 3ePARCT 
MOV 1,3 

MOVZR 34+3:+S2C 
iSZ PARCT 

MOV 3434SZR 
JMP aed 

LOA 3,FARCT 
MOVR 3,3 

LDA 3,PARITY 
MOV 343sSE2Z 
JMP 244 

MOV 3:+3:SZR 
SUB 3,3 

MCV 323-¢SNC 
LDA 3,C400 

ADO 31 

JUMP aPRET 

9 

3;CRC SUBROUTINE 
sENTER ACO=CRC8 
STA 3sRCRC 
#ACi XOR ACO 
MOV 1,3 

ANDZL O53 

ADD 1,0 

SUB 3,0 

;SHIFT RIGHT 1 
LovA 3+C463 
MOVZR 0+0+SNC somer 41F 
JMP CROON 


sALL ZEROS, DONT CHECK 


ON ACI 


:CLcAR PARITY COUNTER 
PUT CHAR IN ACZ 

3FOR PARITY GENERATION 
3;COUNT THE 1°S 


;SKIP 
;PAR=1 


iF C OR R=9g 


:PAR=0 


;PAR=1 


ACI=NEXT BYTES 


sRESULT IN ACO 


02136 


021357 
02140 
02141 
02142 
02143 
02144 
02145 
02146 
02147 
02150 
02151 
02152 
02153 
02154 
02155 
02155 
02157 
02160 
Q2161 
02162 
02163 
02164 
02165 
G2166 
02167 
C2170 
G2171 
02172 
02173 
02174 
02175 
92176 
02177 
02200 
02201 
02202 
02203 
02204 
02205 
02206 
02207 
02210 
Q2eli 
02212 
C2213 
Q2214% 
02215 
02216 
G2217 
02220 
02221 
C2222 


A395 


ua 2225 


163000 


034295 
024206 
107409 
1oGc00 
163400 
123099 
040277 
Co2hoL 
O000c9 
caocdo 
QO34371 
00#493 
Q00Si7 
Q02S74 
C34540 
010527 
031490 
021000 
064405 
034525 


a 
ay 


How r+ GO 


Mm r+ 2 co) ~) UPB PH OO OF OO OG 
[= 
ie) 


MP Ao £ Rc £0 
ww MN * TO Po © 
si POO ©} 


40 tb & 


Ow yh 


Pi be OO Fre OOM OF 
cS 


rw OmmOna £ inn 


MM NM DO & 
OM Ph OD we 


3 
Cu1409 
C30413 
101001 
030414 
020254 
024925 
106459 
c20314 
107400 
133009 
C3100 
001406 
002215 
077777 
Lare77 
157777 
LET77? 
nara heaeare 
L757 t7 
Pert? 


CROON: 


Ty 
NI 


CFZTABS 


137777 


ACO 


;COMP 


LDA 
LDA 
AND 
COM 
AND 
ADD 
STA 
JMP 
i) 

0 

STA 
JSR 


5340 
2345 
3,074 
i1.C703 
Ori 
0-0 
300 
1,9 
0,CRC 
aRCRC 


3aRR 
RAN 


RANDOM 


JMP 
STA 
ISz 
LDA 
LDA 
JSR 
LDA 
ADD 
STA 
JUMP 
LOA 
STA 


aRR 


35,.UD03 
~UD03 


2+0e3 


0+0+2 
~U050 
3,.U020 
3.0 
0+02 
@.UD03 
1,,UD21 
1,.U010 


MOVZL Oel 
MOYZL lel 


0$2 
uiMP 
ADD 


»UD10 
e-2 
Ovi 


MOVZL lel 
MOV2ZL 1,31 


AOD 
wh P 
LDA 
MOV 
LDA 
LOA 
LOA 
SUB 
LOA 
AND 
ADD 
LOA 
JMP 
«+i 


1,0 
0-3 


2+CFZTAB 
0+0+SKP 
2<CF2ZTAS 


0,2UFF 
1,iDX0 
Ol 
0,C17 
Ory 
112 
2-002 
05 


O77777 


Bao ar ara s 
167777 
173777 
LISTTe 
LT67 47 


t:SHIFTED RESULT IN ACO 


sACi=702 PART 
;COMP ALL 
sACO=COMP OF 2345 
sACO=RESULT 


;GENERATE A RANDOM 
s;NUMBER IN C(O) 


iOLD VALUE TC ACO 
+STORE NEW VALUE. 


>RANDCM CONTINUED 


s;FLOATING ZERC 
tFLOATING ONE 


1Ci(1)=WwORD?A 
;MODULO 17 


PICK A TABLE ENTRY, 
EXIT, 


r 
e 
a 
4 


PAGE 


24 


02224 
02225 
02226 
02227 
02230 
02231 
02232 
62233 
0223'% 
02235 
02236 
02237 
02240 
02241 
02242 
02243 
02244 
02245 
02246 
02247 
02256 
02251 
Q2252 
02253 
02254 
02255 
02256 
02257 
02269 
02261 
02262 
02263 
02264 
02265 
02265 
02267 
02270 
02271 
02272 
02273 
C2274 
02275 
02276 
02277 
02300 
023501 
02502 
02503 
C2304 
02305 
02294 
02307 
02310 
02311 
02312 


LTTSEL 
Lt Ste 


5 iy da a a 


LIT Tos 
Si fio 
177767 
177773 
477775 
177776 
100900 
0499006 
025609 
C1icao0e 
0040906 
002903 
001¢690 
0604990 
8090200 
C00190 
Co0040 
200020 
00020 
902004 
690002 
Q0c001 
102461 
1020490 
001499 
026020 
C24234 
422409 
BSCSLS 
113400 
G24415 
133000 
025090 
030262 
Lize620 
151229 
151220 
0204906 

1209.9 


0210900. 


101309 
123090 
00140 
Q02245 
000000 
000000 
009990 
009099 
0335051 
goecoqi9 
00635: 


102490 


ZEROS: 
ONES: 


SAEWS 


CFBITs 
eUD001: 
»~LDO2: 
~UD1G: 
~UD20: 
»eUDe1s 


mrs 8 


Nowe 


LITT SET 
177577 
177677 
177737 

tT 7737 
177767 
177773 
177775 
477776 
109000 
40000 
20000 
16000 

4000 

2000 

1000 

400 

2090 

160 

40 

20 

10 

4 

2 

a 

SUB 0+6+SKP 
40C 0.0 
JHP 0,3 
LOA 0+IDX0 
LOA 1,BUFF 
S$uB 1,9 
LDA 2,C7 
AND O02, 
LOA 1,CFBIT 
ACD 1,2 
LDA 1:02 
LOA 2,C70 
ANODZR 0:22 
MOVZR 2:2 
MOYVZR 212 
LDA O+CFBIT 
ACD 02 
LOA 0,092 
MOVS 0,0 
ADD 1,0 
JUMP 0,3 
CFZTAB+31 


53031 

19 

JSR @ism 
SUB C,.9 


PAGE 


iZEROS/SONES 


:BIT DITTLE/SKEW TEST 
~SINGLE BIT FOLLOWED BY 
SEVERY OTHER. C(0}=COUNT. 
sPATTERN IS DESIGNED FOR 
;WORST CASr SKEW, 


iBIT FOR 1 CHARACTER, 


FOR OSHER CHAR. 
;PUT SITS TOGETHER 


SIZE MEMORY 
RELIABILITY TEST 


25 


02313 
92314 
02315 
02315 
02317 
02320 
02321 
02322 
02323 
02324 
02525 
02326 
02327 
02330 
023531 
02332 
02333 
02334 
02335 
02336 
02337 
02340 
92341 
02342 
02343 
02344 
02345 
02346 
023547 
02358 
Q0235i1 
02352 
023553 
02554 
02355 
92356 
02357 
02360 
023561 
02362 
02365 
02364 
02365 
02366 
02367 
02370 
02371 
02372 
02373 
02374 
02375 
02576 
92377 
02400 
02401 


040210 
040315 
006344 
002469 
006354 
006344 
061540 
006344 
O01451 
20526 
101004 
9004906 
9CéS2213 
006226 
Oc3251i 
063077 


944759 
110747 


q) 
Ov 
oO 
Gi 
MN 
re 


a 
ab 


FON On mo wf oF GO 
~ 
foe] 
(on) 


+ 


Oo 
rs 
gy 


oOoomdmcad kr O&O +t 
mM FOO UO OW fo 


o 
PR 
L£ 
Ww 
¥ 
¢ 


124901 


Dh © 
OF 1G BR fo 


or 


024323 


GOO4O7 
924372 
125909 
GO0773 
O24272 
122400 
QC9762 
C+#5234% 


RELI: 


REL.S* 


STA O+PARITY 
STA O,UCTR 
JSR ATALL 
RELXPT 

USR AICLBIN 
JSR STALL 
REW 

JSR AIALL 
WEOF 

LDA 0,UCTR 
MOV 0+0;S2ZR 
UMP REL1 
JSR SICRLF 
JSR @IMESS 
MNOACT 

HALT 
SMP 
JSR 
LDA 
LDA 
AND 
STA 


REL 

aeRk AND 
2.e-U02Z1 
1,Ci7 
2e1 
1,eUD21 
ISZ .UD21 
LDA 24C5400 
ANOS O¢2 

LDA 1,AVAIL.2 
LDA S3eUCTR 
AND# 3s14SNR 
JMP RELI 

STA 2,sUNTT 
WFILE 

JSR @,RAND 
STA 0,RELRAN 
LOA 1-.C7 

ANO 041,5SNR 
COM 141,SKP 
NEG isl 

STA 1,RELREC 
STA 1,RELTEM 
LOA 3.501777 
LOA 2,CHENC 
ADDZ 041,E2C 
JMP RELLY 
SUBZ 142,.SNC 
JMP RELY 
LOA 1,CEND 
SUBZ 0+1:SNC 
JMP REL3-1 
LOA 1,C460 
AOD 1,0 

wMP REL. 
LOA 1.0400 
SUB 1,0 

JMP REL.2 
STA G,BUFF 


PAGE 26 


tFOR ALL READY WRITE 
;ENABLED UNITS 


;CLEAR ERROR BINS. 
;REWIND 


t+WRITE Fale WARK 


S"NC REAOY WRITE ENABLED 
tUNITS AVAILABLE" 


;GENERATE RANDOM 


sPICK A UNIT AT 
sRANDOM FROM THE 
;AVAILABLE UNITS, 


;UNIT NOT AVATL 


SWRITE A FILE MARK 


i;NUMBER OF RECORDS 
;IN FILE MODULO 7, 
sMAX WC 

sCA+1L777=QVERFLOW 


SCAT 777>MEMORY END 


;CA<PROGRA’ END 


ART ADORESS 


-4 


02402 
02403 
02404 
02405 
02406 
02407 
02416 
02411 
02412 
02413 
02414 
02415 
02416 
02417 
02420 
02421 
02422 
02423 
02424 
02425 
02426 
02427 
02430 
02431 
02432 
02433 
02434 
02435 
02436 
02437 
02440 
02441 
02442 
02443 
02444 
O2445 
02446 
02447 
02450 
02451 
02452 
02453 
02454 
02455 
02456 
02457 
02460 
02461 
02462 
02463 
02464 
92465 
62446 
02467 
02470 


006342 
024324 
107405 
124123 
124520 
044235 
006364 
002151 
OCo035 
014242 
10ic02 
009451 
0102322 
COO07S3 
0905540 
014242 
101001 
OOG4ss 
0U6357 
177777 
620317 
20-2 Wi? 
009405 
0G6366 
1770¢c0 
G0E357 
000004 
C90403 
005357 
0690000 
020229 
040517 
006342 
024324 
107405 
124121 
124520 
044235 
006355 
005365 
902151 
010764 
CU0766 
006357 
Q00C0i 
0060655 
030243 
020316 
025046 
125000 
046216 
0€1400 
0053540 
CO0S22 
162541 


Ome 0) 
mm 
tc 
Mie 

Cl ee 
es 


2 Od 


REL4s 


RELXPTS$ 


RELS: 


INT: 


JSR a,RAND 
Lon 2aeC7 77 
AND 0+1;:SNR 
COMZL LelsSKP 
NEGZL 141 

STA 1+WC 

GEN 

RAND 

WRITE 

OSZ EQTFLS 
MOV 0+0sSKP 
JMP RELE 

ESZ: BEL TEM 
JMP RELS 
WFILE 

DOSZ. EOTFELG 
MOV O+0,sSAP 
JMP RELS 
SPACE 

=1 

LDA O0eRANDOM 
MAOVLA 0:09S2C 
JMP REL, 
SPCHK 

=1000 

SPACE 

i 

JUMP RELY-2 
SPACE 

0 
LOA 
STA 
JSR 


O0,RELRAN 
0»,RANDOM 
@eRAND 
LOA 11,0777 
AND 041+SNR 
COMZL 141+SKP 
NESGZL dell 
STA Lew 
READ 

CHECK 

RAND 

ISZ  RELREC 
JMP RELY 
SPACE 


RE o 
2Q,UNIT 
0+,UCTR 
L,AVAIL,2 
11.8 
0,UCTR 
013 

GHIST 

JUMP REL 

SUBOL 9.0+¢SKP 


;GENERATE A RANDOM 
;MODULO 1024 WORDS, 


STLLL CORE WITH 
;RANDOM 


;END OF TADE 
wWRITE A FYLE MARK 


32ND OCF TAPE 
+BACK OVER FILE 
+JUST WRITTEN, 


iSPACE BACK TO 

sA FILE MASK, 
;FORWARD OVER THE 
sFILE MARK 


;SPACE BACK THE 
WING RECORDS 
;RESET RANDOM FOR 
SREADING THE FILE, 


READ AND CHECK T 
sRECOROS IN THE F 


;SPACE OVER THE FILE MARK, 


tASSIGN THE READY XPORTS 


sINTERCHANRE TAPES TEST... 


27 


02471 
02472 
02473 
02474 
02475 
02476 
02477 
02500 
02501 
02502 
02503 
02504 
02505 
02506 
02507 
02510 
02511 
02512 
02513 
02514 
02515 
02516 
02517 
02520 
Q2521 
02522 
62523 
02524 
02525 
02526 
02527 
02530 
02551 
02532 
02533 
62534 
02535 
02535 
02537 
92540 
02541 
02542 
02543 
02544 
G2545 
02546 
02547 
02559 
92551 
02552 
02553 
02554 
02555 
92556 
02557 


102520 
040225 
054326 
006354 
020345 
040235 
102490 
040210 
004542 
001549 
102400 
040316 
OG4R3S 
002517 
020316 
101004 
000410 
006221 
006226 
003231 
043977 
000763 
10316 
002400 
014325 
000437 
220347 
646325 
006364 
002260 
CO4S514 
ec1030 
910325 
690775 
C20347 
040325 
020330 
040317 
024331 
107405 
124121 
124520 
044235 
006364 
002151 
004475 
001930 
020317 
010325 
000765 
004470 
001451 
004466 
901451 
OU4464 


INTHWS 


INTL: 


INTISZ: 


INT3: 


SUBZL 0.20 
STA O,INTEM 
STA 3rINTRET 
JSR AICLSIN 
LDA Q,M400 
STA Owe 

SUB 0.40 

STA O+PARITY 
JSR ALL 

REW 
SUe2 
STA O0,UCTR 
JSR ALL 
INTISZ 

LOA O,UCTR 
MOV 340sS2ZR 
JMP INT? 
JSR JICRLE 
JSR aIMESS 
MNOACT 

HALT 
JMP 
ISz 


0.0 


INTL 
UCTR 
JMP 0.3 

DSZ INTEM 
JMP INTS 
uDA 0.42000 
STA O,INTEM 
GEN 
SKEW 
JSR 
WR 
ISZ INTEM 

JMP 073 

LOA 03M2000 
STA O,INTEM 
LDA 0.042345 
STA 02RANGGM 
LDA 1:0377 
AND 0+1+SNR 
COMZL 12+1+SKP 
NEGZL 4,1 

STA 1 WC 

GEN 
RAND 
JSR 
WR 
LOA 
Tsz 
JMP 
JSR 
WEOF 
JSR ALL 
WEOF 
JSR ALL 


ALL 


ALL 


O+RANDOM 
INTEM 
INTY 

ALL 


PAGE. 28 
tHERE IF WRITING THE TAPE. 


tREWIND THE UNITS, 


+;COUNT THE READY UNITS 
3IN THE SYeTEM, 


;"NO READY WRITE ENABLED 
tUNITS AVAILABLE" 

;PLACE UNITS WRITE ENABLE, 
3AND ON LINE, PRESS CONT, 
+;UNIT COUNTER 


iOONT WRITH ON UNITS 


tWRITE SKEW PATTERN 
7100 TIMNcsS ON ALL UNTS. 


tINIT RANSOM 


tWRITE ALL UNITS 

tWITH THIS RANO PATTERN, 
PWRITE 200 RECORCS 

iON EACH UNTT 


iWRITE 2 FILE MARKS, 
;AND REWING, 


02560 
02561 
02562 
02563 
02564 
02565 
02566 
02567 
02570 
02571 
02572 
02573 
02574 
02575 
02576 
02577 
02600 
02601 
02602 
02503 
02604 
02605 
02606 
02607 
02610 
C2611 
02612 
02613 
02614 
92615 
02615 
02617 
02620 
0262) 
02622 
02523 
02624 
02625 
02626 
02627 
C2630 
C2631 
02632 
02633 
02634 
02635 
02655 
02637 
02640 
02541 
02642 
02642 
92644 
02645 
O264E 


001540 
020347 
940325 
020345 
C40235 
004456 
002527 
C10325 
OSS775 
O20547 
C40325 
0209530 
649332 
0243351 
107405 
124ie2i 
<Ze320 
044235 
OO4+41 
002634 
020317 
910225 
000766 
8414516 
CU04O4 
966340 
810526 
v02525 
904427 
QQ1540 
960210 
ov6340 
GGe6224 
o0S226 
603253 
C65619 
COO777 
G60210 
0007353 
054334 
006355 
006355 
002260 
002354 
054334 
020352 
940317 
006355 
006365 
002151 
0023354 
054333 
023522 
O0o777 


162490 


TINTS: 


INT63 


ALL: 


REW 
LOA 
STA 
LDA 


0.M2000 
OeINTE®M 
0,M4O00 
STA G,WC 

JSR ALL 
INT55 

ISZ INTEM 
JUMP 4-3 

LOA 0,M2000 
STA O,INTEM 
LOA 0,C012345 
STA O,INTRAN 
LDA 1.0377 
AND O11¢SNR 


COMZL LeaisSKkP 


NEGZL iyl 
STA 1,WC 

JSR ALL 
INT66 

LDA O+RANDOM 
Isz INTEM 
JMP INTE 

DSZ UCTR 

JMP INT7 

JSR @AHIST 
£SZ INTRET 
JMP AINTRET 
JSR ALL 

REW 

NIoc TTI 

JSR AHIST 
JSR AICRLE 
JSR AIMESS 
MROTATE 
SKPON TTI 
vip eel 

NIOC Ts 

JMP INTS 

STA 3eRETSE 
READ 

CHECK 

SKEW 

JUMP GRETSS 
STA 3+RETSS 
LOA Ds,INTRAN 
STA O+RANDOM 
READ 

CHECK 

RAND 

JMP ARETSE 
STA 3,ALLARET 
SRPBZ .MTA 
JUMP onl 

SUE 0,0 


PAGE 


tTHE UNITS ARE WRITTEN. 


sREAD ANG FHECK SKEW 
sPATTERN ON EACH UNIT. 


i INIT RANDOM 


3;GET RANOOM WORD COUNT, 
sINIT RAND,READ AND 
;CHECK RANDOM ON ALL UNITS, 


300 IT 100 TIMES 


+MORE INTERCHANGE REQUIRED. 
;LAST INTERCHANGE, 


*+REWIND 


sPRINT ERROR OATA 

S"ROTATE TAPES FROM UNIT 

31 TO 2, 2 TO 3, ETC. PRESS 
7TTI KEY To CONTINUE," 
swAIT FOR OPERATOR 

3:TO PRESS VEY. 


;READ ANDO 
;THE SKEW 


CHECK 
PATTERN. 


;REAQ ANC 
sRANDOMA 


cHES 


SEXECUTE THE ROUTINE 
sPOINTED To BY THE 

wHORD FOLLOWING THE CALL,» 
iIF THE UNIT IS O.K. 


23 


02647 
02650 
Q2651 
02652 
026553 
62654 
02655 
02656 
02657 
02660 
02551 
02662 
02663 
02664 
92665 
02666 
02667 
02670 
02671 
02672 
02573 
02674 
02675 
02676 
02577 
G2766 
02701 
02702 
92703 
02704 
02705 
02706 
02707 
02710 
02711 
02712 
02713 
02714 
02715 
02716 
02717 
92720 
Q2721 
02722 
02723 
92724 
02725 
02726 
02727 
02730 
02731 
02732 
02733 
02734 
02735 


040243 
020243 
061022 
069422 
105120 
127102 
CQ90415 
101223 
OCoO404 
141220 
Lgle23s 
O67 
024343 
018263 
C20c43 
924235 
Leés#i14 
Co769 
O0O1457 
050422 
£81213 
OCO775 
SCUTSS 
600011 
Lsi2+o 
040705 
1201564 
040523 
144722 
54724 
1290254 
0609000 
15i249 
141705 
sa pare aes 
21504 
000242 
141675 
1425720 


G45703 


243102 
142724 
120322 
420201 
seeves 
642191 
147549 
1201136 


ALL1.: 


ALL2: 


ALL 3: 


MTAB;: 
MAPE Ss 
ae 
D 
PA 
Rd 
ef 


? 
a 


MRECN® 
ae 
OR 
D# 

! 
MRCRCS 
HE 
Ci 

'd 


STA 
LOA 
DOA 
UIA 


O,UNIT 
O.UNIT 
Os .MTA 
Oo .MTA 


MOVZL O71 


ADDL 4141,+S2C 


JMP ALLS 


MOVZR 030+SNC 


UMP ALL2 
MOVZR 0-0 


MOVZR OF00SNC 


JSR 30-3 


LDA 3,ALLRET 


IS2Z UNIT 
LDA O UNIT 
LOA 1.C10 


SUBB 0+14S2R 


JMP ALL. 
JMP 143 
DIA O+.MTA 


MOVR# 0+0+SNC 


JMP 


a4 


JMP ALLI. 


2TXTE 


oTXTE 1 R 


»TXTE 1 R 


»TXTE |} 


tt 
(@) 


eTXTE F=S 


<L1>1 


PAGE 


tWAITT FOR REWINC 
;UNIT NOT READY. 


+CHECK WRITE LOCK 
sEXIT OT CPERATOR, 


SINCREMENT THE UNIT 
iTEST FOR VAST UNIT 


tANOTHER UNIT 
wLAST UNITs EXIT 


;WAIT FOR READY: ASTER REW. 


30 


PAGE 31 
027356 047125 UN 


02737 162311 IT 

02740 aoo24o0 | 

02741 153640 MWPES ,TXTE I W 
02742 144722 RI 

02743 142724 TE 

02744 050240 
02745 151101 
02746 1523511 
02747 126131 
02750 909240 
02751 041240 
02752 042191 
02753 152240 
02754 GS9101 
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03114 
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03116 
03117 
05120 
03121 
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03123 
93124 
03125 
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03130 
03131 
03132 
03133 
03134 
OS155 
03136 
035137 
03140 
03141 
03142 
03143 
G3144 
03145 
03146 
03147 
05150 
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03152 
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03154 
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03157 
03160 
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03170 
03171 
93172 
03173 
03174 
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03176 
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035206 
032014 
N93202 


120322 
£20101 
050123 
141501 
027305 
32640 
144515 
120324 
000c09 
051¢75 
040724 
G22724 
120123 
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142724 
126322 
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Dai504 
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952646 
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$31675 
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03203 
03204 
03205 
03206 
05207 
032190 
O3211 
03212 
03213 
03214 
03215 
03216 
03217 
03220 
O3221 
03222 
03223 
03224 
03225 
03226 
03227 
932308 
C3231 
03232 
63233 
03234 
03235 
03235 
93237 
03240 
032414 
03242 
03243 
03244 
03245 
03246 
93247 
03250 
05251 
G3252 
93253 
03254 
05255 
03256 
C3257 
G3260 
03261 
03262 
03263 
03264 
03265 
03266 
03267 
03270 
O3271 


120305 
147705 
027306 
052640 
144516 
120324 
0900900 
042101 
1351104 
O43441 
147717 
Cossyus 
04¢C5C02 
004504 
147727 
G42322 
5 ia Bo he 8 
341705 
G04643 
047125 
Apes d 
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247515 
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040705 
354504 
155649 
144722 
L42724 
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O4¥o0516 
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232549 
144515 
031724 
0490649 
049525 
146311 
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147722 
049724 
142724 
1522490 
o00105 
051705 
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93354 
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03537 144516 NI 
03546 120324 T 
03541 000000 ! 

sBINARY TO DECIMAL ASCII CONVERT 

s;CONVERTS A DOUBLE PRECISION, TWO»S COMPLEMENT NUMBER 

3TO AN ASCII OECIMAL CHARACTER STRING 

sINPUTS O IN ACLs AC2 (HIGH, Low) 

OUTPUT: ASCII CHARACTER STRING, TERMINATED BY A 
BIT 8 = 0+ IN ACO TO USER 
ROUTINE WHOSE ADDRESS MUST BE 
STORED IN LOCATICN 41 OF PAGE QO 
STRING OF FORM: 
+NNNNNNANNAN ONULL ) 
OR «NNNNANNANNN (NULL ) 


ee 26 we 


CALLING SEQUENCE 


ee 2¢ we we ee we 


JSR »0BO 
RETURN 
SDESTROYED: ACis AC2, AC3, CARRY 
sUNCHANGED: ACO 
03542 054456 ,D8D: STA 3,.FD03 SAVE RETURN 
03543 040454 STA O+.F000 ;SAVE ACO 
03544 920501 LDA 0+.FD30 sPOINT TO HIGH ORDER POWER IN 
+ TABLE 
03545 940565 STA O1.FO1l2 
03546 176499 SUB 3,43 
03547 054367 STA 3eDIGIT 
93550 C44477 .4FD99s STA 1+.F04i0 iSAVE ABS(NUMBER) 
03553 050477 STA 24,FD10+1 
03552 034367 LOA 3,DIGIT 
05555 2735004 MOV 313,S2R 
03554 906941 JSR d.FD40 ;PUT QUT SIGN OR OIGIT 
03555 324472 LOA 1+.FD010 tRESTORE ARS (NUMBER) 
Q3556 040472 LDA 2+,FD10+1 
03557 920476 LDA 0,.FD22 i;GET OCTAL 57 
03560 0469471 STA 0+.FD1i ;COUNT IT UP IN STORAGE 
03561 O24471 LDA 3+.FDi2 ;CURRENT POINTER To POWER OF 
310 TABLE 
03562 021401 .FO98*s LDA 011.3 ;LOW ORDER WORD 
03563 101235 MOVZR# 0.0,SNR 
03564 010357 SZ DIGIT 
03565 101¢05 MCV O0+U+SNR iTEST FOR eNO CF TABLE 
03566 (96426 JUMP .FO97 +DONE 
03567 112425 SUBZ 092 
03570 92i40C LDA 01023 3HIGH ORDER WORD 
03571 1643003 MOV O+«09SNC 
03572 106001 ADC O+lsSKP 
63573 106409 SUB Ol 
03574 010455 ISZ .FDil ;COUNT UP DIGIT 
93575 125112 MOVL4# 441:SNC ;TEST FOR <0 
03576 G007564 JMP .FD9S reer SUBTRACTING 
03577 921401 LOA O+1:3 tRESTORE POSITIVE vALUE 
05600 113022 ADDZ 012;S82C 
93601 1254659 INC isi 
03602 0214096 LOA 05043 


063603 157930 ADD Ovi 


03604 
03605 
03606 
03607 
03610 
03611 
03612 
03613 
03614 
03615 
03616 
02617 
03629 
03621 
03622 
03623 
03624 
03625 
03626 
03627 
05630 


63631. 


03632 


03633 
03634 
03635 
03635 
03637 
03649 
O364%14 
036+2 
03643 
05644 
03645 
03646 


03651 
03652 
03653 
C3654 
03655 


C5656 054542 


175400 
175400 
OS444e 
G20442 
034265 
116414 
010367 
000735 
006224 
OOZE7E 
Go2ug2 


Gouncs 


9G0000 
035632 
1450099 
002755 
169409 
600239 
123200 
900017 
Q4ii00 
096002 


omc 
am) 


09005 
000019 
0909092 
0090909 
Ceeoes 
OG0033 
eg9es 

G99957 
OcOO4: 
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INC 3,3 ;BUMP ACZ TO NEXT TABLE ENTRY 

INC Se 

STA 34.F012 

DA OveFD1Il SET CIGIT 

LOA 3,C6Q 

SUBH 043,528 

ISsZ DIGIT 

JMP FOSS :PUT Ii OUT 
ef O97 JSR ar MESS 

MTAB 

JMP a,FDO3 sRETURN 
»7D00s 98 +SAVE ACO 
of DO3s 0 ;SAVE RETURN 
2FO0C5* 35632 310*«9 

145600 

2765 +10%**3 

16049090 

230 ,LO*xx7 

1132080 

L7 ;10**6 

411900 

i +10*«5 

103240 

eROX 19 

0 3;10*«4 

10690 

Q ;LO*x3S 

1900 

G ' $10**2 

100 

0 t1L0%*«x1 

Ld 

Q *L0*«0 

4 
2FOSO: e«FDQS5 ;POINTER TO CONVERSION TABLE 

0 s;END OF TARLE INDICATION 

eRDOX 8B 
eF D103 2elLK 2 :SAVE CURRENT QOUBLE WORD 
FOL: OQ sCOUNT UP DIGIT wORD 
»FDL2: 92 sPOINTER TS POWER OF TEN ENTRY 
or Ded: tte sASCII eH 
er D21l.s Ve ASCII vail 
aPbe2s ‘57 sASCII "G" «7 
»FO4o=44 ;PAGeE 0 PUT CHARACTER ADORESS 
;TTO NON INTERRUPT PACKAGE 
T*MESS" PRINTS ASCII MESSAGES AS ee BY ASSEMBLR 
s"CHAR" PRINTS ASCII eee S{(ORIC(OL MUST BE O 
sWILL RETURN +2 TF C(O) 22/,CORRECTS THE ee SIMUL. 
S"TYPE" PRINTS Cts), MUST HAVE FROPERK PARITY. RET. IS 
TO CALL+i.REPLACE THIS RGCUTINE WITH INT, TYPE IF OES 
s"¥CRLE" PRINTS A CARRIAZE RETURN 
oe PRINTS C(2) IN oCTAL FOLLOWED BY A TAB 
CPC PRINTS Cli} iN DECIMAL.-LEAGING ZEROS SUPPRESSED, 
tecLuouen BY A TAB. 
MESS3 STA 3,€ESSR s;PRINT A TEXT WESSAGE 


03657 
03660 
03561 
03662 
036563 
03664 
03665 
03666 
03667 
03670 
C3671 
03672 
03673 
03674 
03675 
03676 
03677 
03700 
03701 
03702 
03703 
03704 
N3705 
03706 
03757 
03710 
O371i 
03712 
03713 
03714 
O35715 
O37i¢ 
03717 
C3726 
03721 
03722 
03723 
03724 
03725 
03726 
03727 
03732 
03731 
03732 
03733 
03734 
03735 
O3736 
03737 
03749 
03743 


03742 
03743 
03744 


010551 
031400 
024321 
021000 
125112 
123701 
123401 
151400 
124090 
004462 
OSO771 
062525 
192401 
G2e2s55 
C320434 
Ceyu4aos 
040442 
1224690 
054439 
049445 
CS50601 
CQ090900 
CLOT 7 


apr 


a 


Cc Ow 
nay ‘i 
fe 
CH 
0 


re 
como hm 
un 


€ 
“ey 
oO 


Fin 


“2 0) 4 
CB) OF WA O OD co be 


om 
NFR £ 
Ol GIO (1 © UI PDS 


tty tA Oo co Gi 


He OO HM © FO bh © be 
UY 
> OO & FR Or 


~ & 


109C00 
0109000 
061000 
090190 
8000190 
oocoal 
0009000 
830456 
goeolea 
623420 
001759 
OCoLSs 


DECP 3 


OCTABE 


IsZ 
LDA 
LOA 
LOA 


MOVL# 2+1:+52C 


MESSR 
2+093 
11,0377 
0.022 


ANOS 1150+SKP 


AND 
INC 
Cor 
JSR 
JMP 
Jip 
SUB 
LDA 
LOA 
JMP 
LDA 
SUB 
STA 
STA 
STA 
0 

IS2 
LOA 
LOA 
MOV 
JMP 
LOA 
SUB 


SUBL#A 251,5S92C 


EMP 
SUB 
LOA 
INC 
UMP 


MOV2ZKR 292,SNR 


LDA 
STA 
ANDO 
MOV 
JSR 
JMP 
LOA 


1,0,S4P 
eve 

1,1 
CHAR. 
MESS+4 
aMESSR 
O+OsSKP 
0,C69 
2;,OCTAS 
0+3 
21,O0cCTB 
0.38 
3eRADRET 
Oe ZSUPP 
2eetl 


em 
3,RACRET 
O0.CHTAB 
2+2sSNR 
CHAR, 
32ZSUPP 
0.0 


DECP 
2ei 
3+C60 
098 
DECOT 


34C60 
3+Z2SUFP 
340 
3+39S2ZR 
CHAR, 
CECUCGT 


24 ati+., CE 


100000 
10000 


1090 


299 
20 
i 


0 
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:C(2) POINTS To 
7A & BIT MASK 

3C({2)=0ATA WORD 


MESSAGE 


:C(G@)2DATA CHARACTER 
;INC TO NExT wORD 
;FLIP MASK 

+;PRINT 

; ANOTHER 

FAS 


RIGHT 


;PRINT C(1) IN OCTAL 


sPRINT C(1) IN DECIMAL 
;BOTH ENTRGS PRINT NUMBER 
+;THEN TAB TO NEXT POSITION 


sAMLDOA 2+ TABLE" INSTRUCTION 


;SCTUP "TAB" AT END 
sir TABLE ENTRY=0 
sEXTIT WiTH TAS 


;ZEROS SUPPRESS STUF 


sPORM JHE OLeLT 


;C(O3=DTGIT 
;MAKE ASCIT 

NT 

NEXT DIGIT 


LOA Qretite CEC RCT 


100900 


1000 


409 


on 


coe 


waar 


re 


OG! Us ©: ae Mo M 
NR oO) -4 OV 


000012 
coacdl 
00¢000 
000010 
000009 
oocc0d0 
054440 
10413525 
091401 
040436 
1760900 
1170090 
156354904 
oca775 
176659 
020430 
163309 
O3S44%24 
116405 
000407 
CO4G351 
Go2e421 
020422 
Q34422 
1174905 
va2415 
920420 
CO4422 
QO90772 
CS5441s 
Q2o9202 
QO4747 
020203 
HO8745 
1624006 
0% O495 
002407 
oocelti 
000060 
H00900 
906290 
C0007 
C50249 
C50090 
Cc0n00 
O54412 
o10772 
O74477 
175100 
175iGde2 
002435 
UE50a0 
00c777 


061111. 


Oc24ugl 


eRDX S 
ZSUPP s 
RADRETS 


CHAR.$ 


CRLFE.S 


CHTABs 
CHRET? 
CHiSAv: 
CHCRZ: 
CHARTS 
CH2GC.6 
CRUFR:s 
MESSRS 


TYPES 


OH 


s) 
0 
STA 


MOVZS 0+0+SNR 


JMP 
STA 
ADC 
A0D 
AND 
JMP 


3y+CHRET 


1.3 
OeCHSAV 
313 
0.3 
3,0,5S2ZR 
023 


SUBCR 3,3 


LOA 


O0+«CHSAV 


ADDS 340 


LDA 
SUB 
JUMP 
JSR 
JUMP 
LDA 
LDA 
AND 
JHP 
LDA 
JSR 
JUMP 
STA 
LOA 
uSR 


[$2 


3,CHTAB 
0+3SNR 
a+7 
TYPE 
aACHRET 
0,CHORZ 
3,CHAR7 
0+3:+SNR 
ACHRET 
C,CH240Q 
TYPE 
a6 
3eCRLFER 
0,C215 
CHAR, 
0,C2i2 
CHAR, 
0+0 
O+CHORZ 
aCRLFER 


Se TYPRET 


CHORZ 


READS 3 
MOVL 343 


MOVL 345235S2C 


JMP QTYPRET 
SKPBZ TTO 


JMP 


owl 


DOAS O,7TO 


JMP ATYPRET 


PAGC 


+PRENT 
TRETURN 


C{9) RIGHT 
¢2.-TF NULL 


;COMPUTE THE PARITY 


s;COMBIND PARITY WITH CHAR 


;IS THIS A TAB 


; YES 

s$0 PRINT IT 

Ee ee ¢ 

;SIMULATE A TAB 
t¥ViA 2 TO sg SPACES 


;SAVE RETURN 


tPRINT CARRIAGE AND LF 


CLEAR HORZ POSITION 
vEXIT 


2.16 ER. OTHE. C07 R: IF 


SWITCH 1(0)-6 


,ENHIBIT TYPE EXIT, 


04033 


04034 
04035 
04036 
64037 
04040 
04041 
04042 
04043 
04044 
04045 
04046 
04047 
04050 
04051 
04952 
04053 
04054 
04055 
04056 
049057 
04060 
64061 
04062 
04063 
04064 
04965 
04065 
04067 
04070 
04072 
04072 
04073 
O4074% 
04075 
04075 
04077 
04100 
O4101 
04302 
04103 
04104 
04105 
04106 
04107 
04110 
O41l24 
OF112 
604113 
041145 
94115 
04116 
04117 
G4120 


000009 


006226 
004562 
006216 
905060 
026044 
020331 
122405 
J3C561 
O36S15 
132400 
C50243 
O30465 
C5065 
006354 
OCE226 
QO&566 
Ch6216 
995060 
020777 
O4cd21 
126409 
044275 
006247 
030352 
133490 
Lol255 
000754 
150400 


acs oc OI 


Oowoc¢ 
OY £ INO 


C24U44y 
1a6415 
090475 
C24459 
2G6414 
000763 
020044 
040921 
162400 
040275 
GO624 

044250 
ogog454 
622055 
C2u427 
122415 


TYPRETS 


6 


3;TEST LOOP BUILDER 


BUILD: 


B8LO.1. 


yo 


JSR GIMESS 
MUNIT 

JSR @LTINP 

LAST 
LOA 

LDA 

AND 

JMP 

LDA 

AND 

STA 

LDA 

STA 

JSR 

JSR 

Mw 

JSR 

LAST 
LOA 

STA 

SUB 

STA 

JSR 


1,aTIBUF 
GsGort 
1+0 SNR 
STRT 
2+C7 

1+2 
2sUNIT 
2eTBLAD-l 
2+T&LAD 
@ICL3IN 
aIMESS 


alINeP 


Oseri 
OvIDAIL 
141 
1sHOLD 
aI.OBIN 
LDA 2,C1777 
AND 1,2 
MOVZR# 2+2,SNR 
JMP BLD,1 
NEG 292 

STA 22WC 

JSR aAIMESS 
MDATA 

JSR @ALTINP 
LAST 

LOA O,aTIBUF 
LOA 1,.CAL 
SUB# 041+SNR 
Jip AL 

LOA 1,CRA 
SUBB 0,1,SNR 
JMP LOAD+5 
LOA 1,.CnKD 
SUBH 0:1:;:SZR 
JMP GETCA 
LDA Q,TISUF 
STA 9+ICX1 
SUB 0,0 

STA O0+HOLOD 
JSR al,O3IN 
STA 12 yWORD 
JMP LOADS 

LOA C.zdTIBUF+1 
LDA 12,CL9 
SULEH 110;SNR 


PAGE 


sTYPE "UNIT" 
;GET UNIT NUMBER 


;PLACE #& TYPED IN UNIT 


sRESET TABLE ADOR, 


;TYPE "WC 8 


GET WORD COUNT 
;LOAD BUFFER BASE 
sADDR.~w1 INTO [0X1 
20 TO HOLD 


sCONVERT We TO BINARY 
+400 1024 


sASK FOR DBYTA TYPE 

;GET INPUT 

;GET FIRST 2 INPUT CHAR 
sALL OR ALT 

;RANDOM 


;TLLEGAL DATA SELECTION 


GET BIN WORD IN ACU 


LGLK AT THE 
TNPUT CHAR 


42 


O4121 
04122 
04123 
04124 
04125 
04126 
04127 
04130 
04131 
04132 
04133 


049134 
04135 
04136 
04137 
04140 
04142 
04142 
04143 


04144 
O4145 
04146 
04147 
04159 
04151 
04152 
C4153 
04154 


04155 
04156 


04157 
04160 
04161 
04162 
04163 
O41E4 
04165 
C4166 
04167 
04170 


04171 
04172 
04173 
08174 
04175 
04176 
O4177 
04200 


OCG4S1L 
024425 
122415 
0CO447 
024423 
122415 
690445 
024421 
1906415 
CO0443 


060735 


GUS TS6 
OC#41 46 
OO2252 
OO4%157 
9041461 
054153 
CG4165 
004167 


046104 
040522 
0350114 
020514 
030124 
039524 
33105 
O4214-7 
642127 


00436 


004531 


C20267 
0014090 
020351 
001409 
202009 
0¢2499 
1024590 
05921469 
020259 
Q014600 


010744 
9190745 
UiGlS2 
O10741 
G18749 
G267357 
945756 
G46756 


;LOCAL 


;LOCAL 
CALS 
CRA 
Clo: 
CLs 
CTO: 
CTi: 
cEys 
cop: 
cwD: 
sLOCAL 
IRGRTs 
IWTRT? 
;0ATA 
ALTL: 


ALTO: 


JMP 
LDA 


SUB# 140,SNR 


JMP 
LOA 


SUB# 150.SNR 


JMP 
LDA 


SUBH 0+275SNR 


JMP 
JMP 
TABLE 
ate 
oth 
RAND 
ALT1 
ALTO 
ALL1 
ALLO 
WD 
CONST 


LOAD+1 
1,CLd1 


LOAD+2 
i1.CTO 


LOAC+3 
1,CT1 


LOAD+4 
GETDA 


“ 
_ 


ANTS 


O4¥6i0} 
640522 
9590114 
939514 
050124 
630524 
053105 
O82237 
O42ue7 


INDIRECT ADDRESS 


ROAR 


G 


WTARG 
GENERATING SUBROVTINES 


LOA 
UMP 
LDA 
JMP 
ADC 
JM 
SUB 
JMP 
LOA 


JMP 


SELECTION ROUTINE 


ISZ 
ISZ 
382 
182 
ISZz 
LOA 
STA 
STA 


0,Ci774 
0,3 
0,C377 
0.3 

0,0 

0,3 

0+0 

6,3 
0+WORD 
0,3 


TBLAD 
TBLAB 
TBLAOD 
TBLAD 


TBLAD 


1,3TSLAD 
LywalRORT 
LyaiwTRT 


PAGE 
sALL ZERGS 


;ALL ONES 


sALTERNATE O'Seit#3 


sALTERNATE 1'°S-07S 
;ILLEGAL DATA SELECTION 


s;ADOR. OF DATA 
;GEN SUBROUTINES 


sASCITI L-A 
AeR 


t 4 


() 22 we we we we we a ae 
zZzocroro 
§ 
Oona rr 


"i 


sENTER 
s;ENTER 
,ENTER 


EADWWRITE ROUTINES 
ATA ACGUTISITION 


43 


04201 
04202 
04203 
64204 
04205 
04205 
04207 
04210 
C4211 
O4212 
04213 
04214 
04215 
04216 
O4217 
04220 
04221 
04222 
G4223 


04224 
04225 
94226 
04227 
C4230 
04231 
04232 
04233 
04234 
04235 
04236 
04237 
04249 
04241 
04242 
04242 
g4244 
04245 
04246 
64247 
94250 
04251 
04252 
04253 
04254 
04255 
04256 
04257 
04260 


006225 
004605 
C06216 
005060 
024745 
022044 
106415 
COO4IS 
C2474) 
L22414 


fo No 
Dobe ed Pot Oc 
On 4 O.O mt 


0G 


~! Ov = Gy 


oo © 
mm C2 


ca 
On vu! 


Q24777 
044024 


ind 


Boe came ae oe Cas ge =) 
BMP EAE OAR O 


cm Phe fo 
room HAO cin Gg UO 


mM N 


ow/rwononodf GO tt" 


OM fo ac ho fe 


Fe 


> 
fo 
fo 
.§ 
t 
G 


122415 
002415 
C24444 
122415 
C00587 
D24442 
122415 


2GET PARITY SEL 
Ji 


GTPAR: 


JSR gti 
MPAR 
JSR alLINeP 
LAST 

LDA 1,C0D0 
LOA O,aTIBUF 
SUB# O.51+SNR 
JMP OOD 

LOA 1,CEYV 
SUBH 1,50,S2R 
JMP GTPAR 
1DA 0.C100 
JMP «+2 

SUS 0.0 

STA O,PARITY 
JSR AIMESS 
MCOM 

JSR aAaIINP 
LAST+2090 


PAGE 


sFIRST 2 CHAR TYPED 


;GDD PARITY 


(ILLEGAL PARITY ENTRY 
;EVEN PAR 


:ASK FOR COMMAND STRING 


iGET COMMAND STRING 
;SAVE IT IN UPPER CORE 
S817 0 IS A BYTE FLAG 


+THE FOLLOWING ROUTINE SCANS THE COMMAND 


tSTRING: 
sENCOYUNTERED. 


EXECUTING COMMANDS AS 
TOX1 IS THE 


LDA 
STA 
sU3 
STA 
LDA 
STA 
GET 
MOV 


i,sINADR 
1,I0xi 
lei 
1,HOLD 
1.CENO 
1+SUFF 


0+0+SNR 
JMP BUILD 
LOA 1.15 
SUBH 1,0+sSNR 
JMP aAITBLD 
LDA 1,5SLhH 
SLBA 1:50+SNR 
uMP MORE 

LDA 1,R 

SUBH 1+0eSNR 
JMP CHAR 

LOA 1S 

SUB 1+0,SNR 
JMP CHAS 

LDA iW 

SU6B# 1:+0+SNR 
JUMP OICHAW 
LOA IE 

SUBH 1+0+SNR 
Um CHAE 

LOA del 

SUBH# 1+0¢SNR 


THEY ARE 
SYTE POINTER 


tLOAD BYTE POINTER 
sFOR STRING SCAN 


39 TO HCLOD 


;GET A CHAR IN ACO 

;ENCD CF COMMAND STRING 
sEND OF COMMAND STRING 
3BYPASS SLASH, 


GET ANOTHER 


4a 


04261 
04262 
04263 
04264 
04265 
04266 
04267 
04270 
04274 


04272 
04273 
O42e74 
O4275 
04276 
O4277 
04300 
04301 
04302 
04303 
04304 
042305 
C4506 
04307 


043510 
O4¥3li1 
94312 
C4313 
04314 
C4215 
04316 
OF S17 
04320 
04321 
04222 
04323 
04324 
04325 
04326 
04227 


C4330 
04331 
04332 
04335 
04334 
USSS5 
94336 
G4337 
04340 


009566 
024444 
122415 
002405 
006226 
OC4eE1D 
000731 
004503 
OG447% 


9056040 
O24415 
122415 
000453 
024414 
122415 
680502 
Q24412 
222415 
090501 
024414 
122415 
999422 
GOO0756 


Om m 
mM 0 & 


moomoo Ot? © 


Oo oaonca 


Co 
7D OO & ¢é 
be be pe pe be be fk et pee 


KH OMA OMM NM Of 
FO FM ON GU +t £ fo 


Oo 
rom) 
& 


QUu0117 
650640 
o00c54 
0gc057 
060052 
070429 


905040 
024774 
122414 
000732 
020236 
Oug373 
CGSS255 
C25776 
040373 


ICHAW: 
ICHA,: 


t 
iSECOND 


4 
CHAR: 


LOCAL 


ee w9@¢ 38 e¢ ee 


IID C2 XO WD we we we 


OC) DO es eu ee ceo oo oe 


On Om ita 


JMP CHAL 

LDA 1¢STAR 
SUB 14+0+SNR 
JMP @ICHA, 
JSR AIMESS 
MERR 

vMP AFCS 
CHAW 

CHA, 


it 
‘ona 


17k 


SILLEGAL CaMMANO STRINGS 


:ASK AGAIN 


CHARACTER ROUTIYES 


GET 

LDA 1,0 

SUBH 41:+0+SNR 
JMP CHRD 

LDA iaW 

SUBH 140+SNR 
JAP CHRW 

LOA 1.U 

SUBH 14+0SNR 
JMP CHRU 

LOA 1,-E 

SUBH 1+0¢SNR 
JMP CHRE 

JMP INERR 


CONSTANTS 


Lee 
104 
127 
125 
L239 
105 
102 
124 
1¢c5 
11% 
117 
ome) 

5 4, 

S7 

32 
79400 
<M s 
oor 
i.” LeSLH 
[12% 140¢S2ZR 
wt ANERR 
wie O,C70K 
374 0,C704 
aad 

woA 9eC70.4K 
STA 0,0704 


{READ EOF) 


iGET A CHAR IN ACO 


{READ) 
(REWIND) 
(UNLOAD) 


+ = RE, READ EOF 
sILLEGAL COMMAND 


STRING 


U7) “AFTER RE 
S;ALLOW REQe IN 


;READ SUBRCUTINE 


TRESTORE 


04344 
04342 
04343 
04344 
O4345 
04346 
C4347 


04350 
04351 
04352 
04353 
04354 
04355 
04356 
043557 
04369 
04361 
04362 
04362 
O4364 
04365 
O436E 
04367 
O4#37C 
O4371 
04372 
04373 
04374 
04375 
04376 
C4377 
04409 
C44C1 


04402 
04403 


04404 
04405 


04406 
04407 
04410 
O4414 
C4412 
04413 
04414 
O4415 
N4416 
04417 
04420 
C4421 


960422 
024272 
123414 
OCd6S6 
006225 


Mm © 
+ UN 


fo 


rPeOooOO HO} 
© 


Mm 2) mG 

Om fh ££ O - os 

Fe4F FP OM Oo UFO TM 
MO) Ol Of OF OF AY 4> 


co 
CO 
GN 
ig 
or 


014242 
yo04o2 
oog894 
d14407 


AY 


co 
~J 
a 
Oo 


on 
ol 
0 


CO ao 
OV NN 
4= 1 


(a) 
FWY FON & & 


4c 


OW 


Oomm & ¢3 © 
cS 


Om 

OO 

(a) 

Oo fP Or 


006362 
000627 


oa 
Gs Gs 
ft dg. 
Cn WG 


Ooo 
a a a) 


0069049 
024706 
122415 
O00416 
924704 
122414 
Coo651 
006049 
024796 
122494 
COG645 
096217 


PAGE 4s 
DIA 049-@TA 


LDA 1,C0400 
ANDRE 1450+SZR 
JMP MORE ;EOF FOUND 
JSR AIMESS 3NO EOF STATUS 
MRET 
JUMP MORE 
;COMMAND IS RO (READ) 
CHRD GET ;GET COMMA IN ACS 
LOA 1,COM,. 
SUBBR 14+0+SZR 
JMP INERR ‘NO (4) AFTER RO 
JSR al,o6IN ;GET # READS IN ACi 
LOA 2,CGM, 3(9) SHOULD BE IN aco 
SUBH 245+SZR 
JMP INERR +NO COMMA 
STA 1,CTRI iSET READ COUNTER 
LUPROs LOA 1,RELRAN ;RESET RANDOM #4 GEN, 
STA 1sRANDOM ;JUST IN CASE IT IS USED 
JSR CLEAR 
READ 
CHECK 
ROARG:; 9 sADDR OF DATA GENERATOR 
OSZ EQTFLG : CHECK. EQT 
JMP +2 3NO EOQT 
JMP REOT sPRINT EOT MESSAGE THEN QUIT 
ODSZ CTR SOONE WITH READS 
JUMP LUPRD :iNO 
JMP MORE ;YES, GET NEXT COMMAND 
ReOT?s JSR wIhESS 
MREOT 
JMP a.4+1 
BUILO 
0 as & Be 0 +COUNTER 


sCOMMAND IS RW (REWINO) 
CHRW: REWINO 

JUMP MORE ;GET NEXT ZOMMAND 
sCOMMAND IS RU (UNLOAD) 
CHRU: UNLOAD 

JMP MORE GET NEXT COMMAND 
4 
tFIRST COMMAND CHARACTER IS S 


° 
’ 


CHAS: SET :GET NEXT CHAR IN aco 
LOA Lee 
SUBH 140+SNR 
JUMP CHSF t=SF (SPACE FORWARD) 
LOA 1,8 
SUBH 14+91S52R 
JP INCRR ;ILLEGAL COMMAND 
GeT 7=33 (SPACE BACK) 


LDA 1,.C0M, 

SUB 150«S2R 

JMP INERR ; ILLEGAL FORMAT 

JSR AI.LOSIN ;GET # SPACES IN Act 


04422 
04423 
04424 
04425 
04426 


04427 
C4430 
04431 
04432 
04433 
04434 


04435 
04436 
04437 
o444d 
0444) 
O4442 
04443 
04444 
08445 
C4445 


04447 
04450 
04451 
04452 
n4453 
O4454 
Oo4455 
O4456 
04457 
04460 
O44et 
04462 
04463 
O4464 
04465 
04466 
04467 
04470 
O4471 
O4472 
OS473 


04474 
O4475 
04476 
C4477 


124409 
O+4402 
006357 
900000 
900604 


ccé604) 
024574 
122444 
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NM 
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4. 
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ae 
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UlGLO F GO UW -F OO 4 UO © 


VONMMOWNHOMN ODO 
de 


m™OFM OO tH OO f4 eb 
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“Je 2 te 


U4 
024412 
944024 
002227 
GSQ422% 


Q24275 
C4440 
025021 
G44uG3 


NEG lel» 
DOSP; STA 1:.+2 

SPACE 

¢) 

JMP MORE 
;COMMAND IS SF 
CeHSF 3 SET 


LOA 1,00mM, 
SUBR 1400S2R 
JMP INERR 
JSR al,oBin 


sMP DOSP 
3 
sFIRST COMMAND CHAR IS 
CHAE 3 GET 

LDA de 


SUBH 1:+9+S2ZR 
J4P INERR 
ERASE 

DS2Z COTFLG 
WAP GIMORE 
JSR @IMESS 
MEEOT 

JMP JIMORE 


FIRST CHARACTER 


C) we as wa 


HALS SET 


MOY 0+0,SNR 
JMP @ISTRI 
LOA 1,.C15 
SUB#H 1,0,SNR 
JMP JISTRT 
LOA 1+4SP 
SUEH# 14+0+SNR 
JMP CHAL+3 
LOA 1,.STAR 
SUB# 1,50:+S28 
JMP INERR 
LOA 1,KriOLD 
STA 1eHOLD 
LOA TeKIDKIL 
STA 1,]20X1 
WMP ODIMORE 
STRT 


op) 
4 
a 8 
“4 
ee 


FIRST CHARACTER IS 


OC) we oe «2 p< 


oe ie 
Pp 


os LOA 
STA 
LDA 
STA 


1,HOCLOD 
LeKHGLS 
1,10X1l 
LeKIDXL 


SL 


a 


PAGE 


iGET NEXT COMMAND 


(SPACE FORWARD) 


iGET COMMA IN ACO 


sILLEGAL COMMAND 
iGET # SPACES IN ACL 


TILLEGAL COMMAND 
SCOMMAND Ie ER (ERASE) 
sCHECK EOT 

;GET NEXT COMMAND 

EOT DURING ERASE 


:SKIP OVER THE OOP 


iGET SPACE OR CR OR * 


760 TO FIRST COMMAND 


360 TO FIRST COMMANDO 


+SKIP OVER A SPACE 


SsILLEGAL COMMAND 
,;=LOOP * 


COMMANDAT * 
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04500 
04501 
04502 


045063 
04504 
04505 
04506 
04507 
04510 
04511 
04512 
04513 
04514 
04515 
04516 
O4517 


04529 
04521 
04522 
04523 
04524 
04525 
0452¢ 
04527 
04530 
C4531 
04532 
04533 
04534 
04535 
04536 
04537 
04540 
04541 
94542 
04543 
04544 
04545 
04546 
04547 
04550 
04551 
04552 
04553 
04554 
04555 
04556 
C4557 
64560 
C4561 


002227 
000000 
000000 
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ee 


PO Oo Mh PO ~~ ON WI BH fo pe 


PO HD Ph hon O14 FWD &: & MH 
NEONND OF 
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fo 


996040 
024603 
122414 
990422 
996217 
44554 
J24317 
C423525 
OGs304 
ORURORORORS 
O06355 
Gis¢ebe 
029402 
COCkeS4 
914543 
000773 
062227 
g06225 
964650 
B92491 
no4924 
004255 
G364G13 
034234 
054022 
014022 
176400 
O304%95 
056022 
1314904 
000776 
C02492 
217690C 


Qugges 


UMP aIMORE 
KHOLD.s 0 
KIDX1: 0 
9 
3FIRST CHARACTER IS wW 
GOT 
LDA 1,T 
SUB#H 1,9,SNR 
JP CHWT 
LOA T4E 
SUBS 1,50,SZR 
JMP @AIINER 
WFILE 
DSZ LOTFLG 
JMP AIMORE 
JSR a@IMESS 
MESEOQT 
JMP @IMORE 
sCOMMAND IS WR (WRITE) 
CHWwTs GET 
LOA 1,COM, 
SUBR 140+S2ZR 
JME ITINER 
JSR al, Osin 
STA 1,CTR1I 
LDA 1,RANDOM 
STA 1LyRELRAN 
SEN 
WTARGs 0 
WRITE 
O32 COTFLG 
JMP +2 
JMP ETFND 
N$2 CTRL 
JMP WTARG+1 
JMP @IMORE 
JSR GIMESS 
MWEOT 
JMP ae+l 
BUILD 
INERR 
STA 3,4CLR 
LDA 3,+BUFF 
STA 3,IDx2 
DS2Z I10xXe2 
SUB 313 
LBA. 2ehenr 
STA S3ralOx2 
INC 252522 
JMP e722 
JMP acLleR 
-20900 


q 
CHAWS 


;EOT DURING 


;00 NEXT COMMAND 


;SET NEXT CHAR TS ace 


t=WT CWRITE) 


SILLEGAL CAMMANO 
s=WE (WRITE EOF) 
;CHECK FOR EOT 
GET NEXT cOMMANO 
SEOT DURING wEOF 


;GET COMMA IN ACO 


s;ILLEGAL COMMAND 

,GeT <4: RECORDS. IN 
;SET wrRITE COUNTER 
s;SAVE RANDOM NUMBER 


ACS 


+GENERATE 
;ADODR OF 


DATA PATTERN 
GEN ROUTINE 


Pere Ch: 2 OT 

i NONE 

WRT 
COUNT WRITES 

+DO ANOTHER 

;GET NEXT YOMMAND 


04562 
04563 
04564 
04565 
04566 
04567 
94570 
04571 
04572 
04573 
04574 
04575 
C4576 
04577 
04600 
CO4ECL 
04602 
04603 
04604 
04505 
04606 
046907 
0467 

o4611 
O4461 

04613 
04014 
04615 
04646 
046137 
04620 
04621 
04622 
94623 
o4624 
04625 
94626 
04627 
04630 
O4E31 
04632 
04633 
04634 
04635 
04636 
04637 
04649 
04641 
04642 
04643 
C4644 
o4045 
CG4HE46 
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MESSAGES 


i 
MUNIT: 
UN 


> ty MM - 


C3 


£0 T OT le 


Ts 
pe 


ier 
<— 


no 


te Get 4 


DWH Se AN. 
VOM 2H 


PDs PS | Ola € 
“4 TT TD oe) o<<c Oe: 


1*) 


STATE 


oTXTE 


2TXTE 


eTXTE 


»TXTE 


eTXTE 


»TXTE 


1<15><12> 


PWC 


1DA 


iO 


IPA 


Lok 


1<15><1l2a- 
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04647 000050 ! 

04650 005215 MWEGT? .TXTE !1<15><12> 

04651 151327 wR 

04652 1523114 IT 

04553 120505 &£ 

04654 147705 £0 

04655 0C00324% Ti : 

04656 O05215 MEEOT® ,TXTE 1<15><12> 

64657 152395 ER 

04660 CSi501 AS 

04661 120205 ¢& 

04662 147765 #£9 

04663 000324 TI 

04664 6805215 MEFEOT: .TXTE !$<15><12> 

04665 142727 we 

C4666 1464705 FI 

C4667 142714 LE 

C4679 142649 a 

04671 152317 oT 

04672 000c00 } 

64675 0205215 RET: «TXTE. 1<1559<10? 

04674 147525 NO 

04675 442649 a 

04576 143317 OF 

O4677 0521540 S 

04700 04072% TA 

O47G2 052724 TY 

04702 229123 § 

O4703 243102 AF 

C4704 142724 TE 

04705 L20322 PR 

O4756 1542722 RE 

O4707 141649 Cc 

04710 O465717 OF 

C4741 640515 Ma 

O4¥712 G42115 NO 

04714 Ocn000 } 
sTELETYPE INPUT ROUTINE, NON INTERRUPT. SUBROUTINE CALL 
sIS FOLLOWED BY INPUT BJUFFER ADDRE<S-1, INPUT WILL BE 
PACKED 2 CHAR,WORD, R TO La BIT 3 ALWAYS ZERO, EXCEPT 
sFOR CR(215), LAST 2UFTER wORD IS EITHER (215)L (0), OR 
S(275IL (LAST CHARIR. BIJBOUT DELETES PREVIOUS CHAK. 
sALL ACCUMULATORE ARE USED AND NONe ARE SAYED 
b ] 
t$ACO=S77 OR 177 
ACL ACCEPTS CHAR FORM TTI, 4C2 PACKS BYTES 
sACS=215 

04714 054451 ‘INPS STA 3,RINP SAVE RETURN 

04715 01904490 <SZ RINP 

O4716 G314990 LOA 24094 VACA=BUFFES ADOR@i 

04717 9509020 STA 2,4IDxX0 rLOAD AUTO [NCEX RES. 

64720 950457 STA 2sBASE SREMEMBER BASE ADUR, 

04721 G$34202 LUA Ss C2i5 

04722 152440 SUBO 2,2 74 TO AC2, G TO Cc 


od 


04723 060219 NIOC TTL TCLEAR TEL 
04724 063619 TTIWT: SKPON TTI ;WAIT FOR INSUT 
04725 000777 JMP oa 
04726 064610 DIAC 1,TTI sREAD CHARACTER 
04727 136415 SUB¥ 1,3,SNR ,CR: FPLC 
04730 000435 JMP CREND ;YES, ZND OF INPUT 
04731 0203831 LOA 0:+C377 ;NO-+ CHECK RUBOUT 
04732 122415 SUB# 1,460,SNR 
04733 Q004%12 JMP DELCH *DEeLE Te: LAST 
G4734 oé5111 DOAS 1,TTO $2CHO -CHAR 
04735 G20177 LDA 0.C1i77 
O4736 107409 AND O11 sMASK OFF BIT 8&2 
04737 133300 ADDS 1.2 *PACK BYTES 
q 
;USE CARRY aS BYTE INDICATOR. fF c=O- AC2=0 AND 
sLAST 2 BYTES ARE IN MEMORY. SF C=1 AC2=LAST BYTE. 
05740 191062 MOVE 0-0+S2C iSKIP EVERY OTHER TIME 
047441 0900763 JUMP TTIwT ;GET ANOTHER BYTE 
C4742 9352020 STA 2,a10X0 ;STORE 2 BYTES 
047435 152460 SUBC 212 s;CLEAR AC2,. DON*T CHANGE C 
04744 9090750 JIMP TTIWT ;GET ANCTHER BYTE 
04745 101002 CELCH: MOV 0450+S5Z2C ;CHECK BYTE POSITION 
04746 000415 JMP OLCHI ;LAST BYTE IN AC? 
OS747 D24026 LDA 1,sIDXO 
04750 830427 LOA 2,BASE 
O4751 2132415 SUBH 142,SNR s;CHECK BUFFER POINTER 
94752 300750 JMP TTIwT-2 INGTHING TO OELETE 
04753 3914029 DSZ2 IDXO ;GET LAST BYTE FROM MEM, 
O4754 032929 LOA 2,adIDXO 
04755 17213440 ANDO 0.2 ;sDELETE CHAR, SET C TO 4 
047535 1513500 MOVS 2:2 
04757 Gi020 DSZ IDxX0 tRESET BUFFER POINTER 
O4760 C24416 ECSL? LDA 1,8SLH 
047631 065111 DOAS 1-1TO sETHO (2) 
04762 CO90742 JMP TTIwT 
04763 152450 OLCHL: SUBO 212 SCLESR BYTa LN ACS, 0 70-4 
C4764 O00774 JMP ECSL 
04765 935131 CRFNOD? OOAS 1,TTO ;ECro CHAR 
04766 123309 ADOS 1:42 PACK BYTE 
04767 052020 STA 2,aIDXO ;STORE IN KUFFER 
04770 C636i1 SKPDN TTO 
O4774 COB777.- JMP 1 
04772 GC24203 LOA 1.C212 
04773 O65111 DOAS 1,TTO s;PRINT LF AUTOMATICALLY 
OS774H 092401 UME QARINP ;SUBR RETURN 
04775 000000 RINP ? 8) 
04776 9000334 sBSLH: 334 
04777 000090 BASES 0 
sCONVERT AN ASCII GCTAL CHARACTER STRING To A BINARY 
iNUMBER 


, INPUTS CALLS A GET CHARACTER ROUTINE 
| ADDRESS MUST GE STORED 
IN LOCATION 40 QF PAGE Ga 
CHARACTERS MUST SE RETURNEDO, 


anOSE 


oe we 28 


050900 
05001 
05062 
05003 
05004% 
05005 
05006 
05007 
05010 
05011 
05012 
05013 
05014 
05015 
05016 
05617 
05025 
05021 
05022 
05023 
o5024 
05025 
05026 
05027 
05930 
05031 
05032 
05033 
050234 
05035 
05036 
05037 


C54435 
050433 
O20437 
Oo5044 

2902499 
Cosdel 


~ de 
7) 


Bo 
ran) 
Gs 


426 
0424 
6400 
te bo A 
YO6940 
050425 
G34423 


Wo ch ch Oo 
Oo” D> on) 


Moe MO OO 


C24404 
Co2402 
G9000s 
dOcacoded 
GO9900 
OG006G6 


PAGE $52 


; RIGHT ADJUSTED IN aCO WITH BIT a=0 
H INPUT OF FORMS 
3 002. -O( BREAK) 
3 WHERE "O" REPRESENTS AN OCTAL DIGIT Any 
’ BREAK IS ANY CTHER CHARACTER 
sQOUTPUT: ACo CONTAINS THE RBREAK CHARACTER 
H ACL CONTAINS THE BINARY NUMBER (MOD 
H 2c0000 CCTAL) 
tCALLING SEQUENCE: 
: JSR ~OBIN 
; RETURN 
;IF AN INQICATION IS DESTRED TO SIGNAL CHARACTERS ARE 
SREQUESTED+s CALLING SESUENTE: 
’ JSR ~OBNT 
H RETURN 
AN ASCII "O" FCLLOWED 3Y A NULL CHARACTER 
SWILL BE TRANSMITTED via ACO 
7TO USER PUT CHARATTER ROUTINE WHOSE 
sADDRESS MUST Sc STORED IN LOCATION 41 OF PAGE O 
CAUTION: RESULT IS N MOD 200000 {(OCTAL; 
; . E.G. 576452* CONVERTS TO 176452 
s;DESTROYED: ACOs AC1l, AC3, CARRY 
sUNCHANGEDS: AC2 
eCGNI? STA 35.5503 ;SAVE RETURN 

STA 2:,££02 ;SAVE AC2 

LOA 0,,EE22 

JSR @.EE4GL ;SEND "oH 

SUB 0,9 

JSR @yeEE4L ;SENO NULL 

JMP +3 
eOBINS STA 3,.EE£03 ;SAVE RETURN 

STA 2,,EE02 3;SAVE ACD 

SUB lel ;CLEAR RESULT WORG 

STA “Les E LG 
~EE98; JSR @.fE4O ;GET A OICIT 

LOA 2eeteco ;OCTAL 60 

LDA Sa, Ebel ;OCTAL 67 

ADCZR 34+9+S5NC sTEST FCR 4,3 <SN<= 67 

ACCZ# 042,820 

JMP .EE9S :NO - MUST SE BREAK CHARACTER 

SUB 2.9 PUT N IN RANGE O-7 

LOA 1,,£F19 

MOVZL 111 iSHIFT SUM 

MOVZL 1,1 

MOVZL del 

ADD Oel 

STA 1,,££10 

JMP ,EESS ;LOOP FILL BREAK RECEIVED 
~£ES9* LEA 2,,EE02 SRESTORE ACS 

LDA 2£,,£E10 ;ANSWER TO ACL 

JMP 03,6203 AND RETURN 
sakoCes 4 TSAVE ACS 
se US Q sSAVE RETURN 
Pac ees uv SSTORAGE FaR RESULTS 
eoCl20% 53 TASCIE 2.9! 


05040 000057 .f£E21:5 67 sASCTI "7H 
O5041 O0C0117 .ff22+ 0 sASCIT "QO" 
000040) ,E£E#O=46 sPAGE @ ADDRESS OF GET A 
(CHARACTER ROUTINE 
Q09041 .EE4¥l=4l sPAGE G AD=RESS OF PUT A 
ICHARACTER ROUTINE 

GET CHARACTER ROUTIMNEs -CHARACTERS RETRIEVED 
TFROM MEMORY, 2 SYTES/WORD, PACKED ReL, 
;SET £0X1 TO BUFF=1 
+;SUBR RETURN WITH CHAR RIGHT YUSTISIED IN acts 
3;B8IT 8 ALWAYS ZERO, SET HOLD TO ZERC BEFORE 
INITIAL CALL, 

O5042 054415 GETCHs STA 3+6TCHR ;SAVE RETURN 

05043 029275 LDA O+HOLD GET CURRENT DATA 

05044 191094 MCV 0401S2ZR sANY ? 

OS045 OOoe205 GMP GT 6 i Preo USE 27 

05046 Ozgetel LDA OsadlOXl i;NOe GET SOME MORE 

O5047 040275 STA O+HOLD 

03050 034177 GT,23 LOA 3,C177 

05051 1563409 AND 3,9 +MASK 7 BIS 

05052 002405 vMP AGTCHR 

05053 101306 67.1% MOVS 040 

056054 176400 SUB 343 

05055 954275 STA 3,HOLD 

05056 Cg0772 uMP GT 62 

05057 000900 GTCHR: § 

05069 900000 LAST: 0 
e&ND 


ERRORS = 


004220 
004116 
0902643 


O04165 
G04163 
Q02650 
002663 
9025672 
006323 
g04%161 
004157 
000046 
004316 
0013501 
001317 
000257 


001354 
001364 
001346 
g0a0256 
002751 
OO4777 
004052 
O04775 
GI023% 


904034 
0023595 
000220 
Oo02e3 


00020 
g00375 
000334 
vog200 
0002314 
000233 
000177 
000267 
000352 
aca273 
gg0gcéesS 
000574 
o0g205 
090202 
000201 
900237 
990256 
000521 
009307 
000306 
CO0331 


AN 3 
(ee) 


wes 


CP CF 


M2 1 PO ND PO 10 A Be ft Se ot 


“$A NON fo OO 
~ 


sao 
~) 4 


OAANMOAD AAAI ANM 
PO A 4 YO 
nn - a 
Oo 


Oo 
WM 
a m 


C2406 
Lotto 
Seog a. 
Cone 


04229 
C4100 
C0344 
02557 
04142 
O4144 
62650 
02657 
02655 
$0333 
O4146 
04137 
oo004s 
0432 

OG 

o1l3i7 
00257 
01375 
013353 
9023.37 
61340 
00256 
co7s2 
04720 
o49052 
04760 
90234 
02261 
00376 
06365 
00230 
Gy263 
94214 
00240 
SOSTs 
003350 
00200 
00324 
CC23s 
00177 
00267 
00352 
00273 
80254 
C0374 
09295 
30202 
$0203 
00237 
96269 
OoS2i 
OS5267 
G5306 
goss? 
93661 


C4267 
04136 
02501 
02565 
o4#1s65 
Q4165 
02670 
02663 
G267e 
02645 
04162 
O45? 
02344 
O4412 
Git 5 
01325 
01303 


O135% 
01354 
91361 
91244 
01147 
04759 
04005 
CHT 75 
00646 
ve4ol 
Go%%65 
01555 
00422 
00652 


OC71G6 
80533 
2535 
00437 
02207 


o0435 
NO1 FS 
32262 
01553 


co7a4 
04004 
G400e 
00417 
907535 
01306 
0232 
C2071 
02805 
01623 
04043 


01415 
Q1247 
02751 
O4777 


GiO5% 
O4252 
O20 S54 


90567 
61457 


61100 


02575 
04235 
G2335 


N0545 
QiL744 
04665 


c1i2s 
C4772 


04721 


01902 


Cc) Ca 
— bs 
+ a 


aon 
WF 
re 


Kh 


C2527 
92614 


ole On i Bag 
04547 
04234 


00730 
S1S74 


Ot 523 


04455. 


04735 
02004 


01150 


92009 
O47 34 


B2n45 
02.45 


91340 


01264 


01554 
044090 


01542 
01613 


05050 
02032 


01344 


01656 


01702 
04544 


02666 
pi7se 


04157 


G1353 


01700 


o2204 


000253 
000204 
000372 
000266 
000254 
001640 
000265 
009315 
0n0262 
d00206 
000373 
000236 
004327 
000207 
0003543 
000205 
00032% 
OO4¥l4s4 
000270 
o00271 
000272 
Q01721 
062037 
0941715 
002913 
002007 
ocG¢2c66 
o82032 
000323 
o04215e 
092302 
OC22i4 
0040156 
OO4435 
Oo4447 
004272 
0065765 
0040275 
Co3752 
Ot4406 
0045¢3 
004474 
006365 
004014 
004350 
004230 
064012 
COo4404 
G34402 
004613 
CO4427 
604011 
004529 
0016567 
OCL1é673 


XN KR iW 


OOVRAOO OC 


~ 


CFO 


OM Ts POM OOD ODO 


eo 6 #6 © @ 
CT OV OI 4s Wh Fe 


—S 


PNT TIOOMIOOMM GO 
WPT PEO OH O09 OM 9 OF 0D OD OD > AL AE Ad td td 


< 


oiT 
CrZ18 
CrH24d 
CRAE 
CHAL 
CHAR 
CHARL 
CHAR? 
CHAR, 
CRAS 
CHAW 
CHAS 
CiAETK 
ChORZ 
CHRD 
CHRE 
CHRET 
CHRU 
CHRW 
CrsaAy 
CHSF 
CHTAS 
CriwT 
CAL 
CKe 


00253 
06204 
00372 
00266 
OGe54 
01522 
002é5 
00315 
90262 
30206 
99373 
00235 
04327 
c0207 
60343 
00205 
$0324 
94075 
00270 
Ce271 
C0272 
01721 
02637 
01596 
O1747 
0259067 
02029 
02032 
60323 
C4%iS52 
02255 
G2201 
03776 
34256 
O4E61 
04245 
93765 
C3773 
02672 
04250 
042706 
O4271 
60377 
99370 
04275 
642306 
05752 
0435035 
9043990 
OS755 
O44 14 
OS 727 
04506 
01666 
01873 


01035 
00442 
01477 
00655 
01044 
01640 
01462 
0226 

01431 
02140 
00700 
o4334 
04337 
92022 
00637 
02137 
02403 
04144 
01450 
01645 
01642 
02014 
G2065 
g1716 
01766 


02066 
02076 
92370 
04211 
92274 
02203 
04616 
04435 
04447 
04272 


04015 
93711 
04406 
94503 
04474 
O2451 
03772 
94350 
04336 
O3771 
64404 
O44g2 
93763 
04427 
C3765 
54520 
91667 


01641 
02445 
31750 


01755 
01763 


92013 
02101 
04230 
02302 


92214 


04462 


03727 


O#015 


O4012 


01454 
01064 
021353 
eeose 


02674 


040448 


04335 


01342 


62109 


oO 
tw 
Oi 
(on) 
h 


03752 


02640 
04014 


o49012 


61142 
02373 


o2717 


014490 


04005 


94265 
04022 


Oa5 4 
02376 


93723 


01474 


04065 


001702 
601655 
000312 
004146 
004147 
000452 
Q04546 
004561 
000215 
C0035514 
Q00574 
000621 
004153 
004324 
001654 
0043245 
000277 
002000 
002145 
004765 
Q040014 
OokO17 
OG415¢0 
004151 
g00274 
O044G61 
oo4 354 
900214 
004331 
000126 
000510 
003704 
003714 
Q03S72=e 
003744 
004745 
000367 
004763 
000562 
00055 


900225 
0003877 
060222 
904423 
004320 
go8760 
d0024e2 


001444 
000261 
go1422 
Cos3s6l 
OC&S541 
904315 


CKS 
CKER 
CARET 
CLO 
Be: 
CLBIN 
CLEAR 
CLR 
CLRET 
CMENC 
OAHO 
CN IOC 
Coo 
COM. 
CeMZ 
CRs 
CRC 
CRKCS 
CROON 
CREND 


| 
= IM 
4 0G 


IMP Ds 


CMPRE 
CMe t 
Raa 
COSP 
2 
ECSL 
EOTFL 


Pp kk pP 
22MM DW te 
rm 


or 


-4 2) 70 DOO) 


WR PT FO TY 
“T} Yo 


$1702 
c1ié55 
00212 
04117 
04122 
0G354 
04363 
GY5te 
00213 
COS5i 
C9547 
09605 
04153 
04324 
GL64] 
O0¢101 
00277 
O1734 
02135 
04730 
0221 
0+002 
Stie5 
64130 
09274 
04360 
G4104 
d0214 
64273 
0032265 
063190 
C3754 
03714 
03719 
03677 
04735 
090367 
0476 
09552 
COx67 
00505 
G0225 
CS377 
VO222 
94423 
4254 
GS760 
00242 
04442 
v1l4+%2 
00261 
JOS51 
COST? 
C4535 
94315 


01727 
Uit655 
04146 
04147 
904350 
Q4546é 
04557 
00452 
90545 
00574 
vvE21 
04205 
04351 
01654 
04145 
91729 
02000 
02145 
04765 
64001 
04910 
04150 
OG4151 


04372 
C4154 
C9456 
04311 
00522 
016904 
03730 
03721 
03722 
93741 
04745 
C2547 
04763 
00571 
00471 
Q0551 
GdSSi 
99550 
00510 
94435 
04304 
04764 
00715 


GHS13 


91444 
91422 
ieee 
01210 
O4¥S44 
GO44O07 


02007 


04017 


Che aa t S 


01666 
01610 
03732 


093552 


CO473 
COSSé4 
u5552 
005468 


94320 


G4416 


02931 


94525 


04430 


02145 


03512 


OC477 


00575 


0G566 


02713 


01502 


O4524 


g242i 


G1510 


00 


2035 


gei421 
062203 
900303 
OC2204 
001556 
992126 
006364 
006040 


oo5c42 
0049071 
001607 
001632 
001602 
001635 
003643 
000513 
oo002c4% 


005057 
004202 
0050535 
005050 
000311 
g00510 
go005le2 
000514 
000516 
000529 
600522 
000524 
00052? 
990220 
O00340 
000454 
900275 


000544 
006376 
Q04279 
oo4#271 
9002370 
000354 
600221 


000020 


go00o021 
j900022 
gC0C4SS 
ge0c040 


mrp oO 


a 4 
Oo 
120 


« 


G) @ &)@ & 


W409 G) OD Gd © Mme 
od . 


Mm Oe« 
AOFM 


7 G3 Gy 7 


iCHOR 
(cual 
ICRLF 


01277 
C2203 
60363 
Ce2oi 
60364 
926109 
$0377 
00377 
04427 
045290 
00046 
SFO 01 
01607 
G162'5 
Vio 
QOLe625 
§1523 
0OS15 
00204 
02070 
05042 
o4201 
05045 
05650 
DOS t2 
90470 
00472 
00474 
00476 
60500 
G050e2 
00504 
95506 
GO220 
90540 
G0249 
ge275 
05047? 
SOS44 
90376 
G4252 
04264 
JOZ70 
090354 
oo2214 
91223 
01503 
02512 
009020 
02205 
047537 
ggo02e1 
Gude2 
50043 
99649 


01302 
Up Rorow 


O1556 
Q20i2 
024190 
Q4232 
04435 


g5¢4e 
C4106 
01633 
01632 
01602 
91630 
01641 
016756 
01560 


OS052 
04215 
95053 
853956 
015790 
090510 
GOSie2 
QO9514 
C0516 
90520 
00522 
C9524 
00527 
O04 54 
90445 
GO4¥64 
Q4061 
05055 
02315 
04237 
04%270 
042714 


02337 
J0465 
o1245 
O2Sks 
02020 
01565 
92250 
C4757 
G40587 
94550 
994350 
OVETT 


C2474 
Q04%56 
Oi25% 
Gi3i6 


92544 
54530 
04456 


02013 


mom © 
bt? CO + 
Oo fo Ci GS 
ogw YW 


mh 


01421 


04539 
04350 
Q&452 


01647 


92036 


02511 


O4467 


ge744 
91971 
Ciabe 


91.74 
O4747 


Q4a72 


o4406 
C4452 


01652 


02517 


04474 


N4415 
64503 


e5045 


O1144 
CL444 


O2227 


ne 
~] ~Jj 


moo 
cn fo 
Soa be) 


Tr) 
Oo 
“> 
= 
oO. 


604545 
go0216 
06093590 
001231 
000225 


000227 


064223 
094265 


060244 
Oo4714 
002470 
Q02501 
002521 
902533 
002557 
gG2561 
002627 
GO2574 
002654 
d02614% 
090325 


000622 
002517 
000332 
0003Z6 
O02471 
9602455 


900246 


904155 
000247 
o00002 
609063 
d00004 
ag00005 
000906 
0003353 
QO4473 
000335 
9900341 
O005L7 
COd04e2 
od00213 
g00725 


. ar 
ws 


mimes 
Ni -< Or 
i) 


bes Pat i bt 
2 XH eH 


va 
SORE 


THAOR 
INERR 


INHEL 
IN? 
IMT 
INTL 
reeks 
iTS 
INT 
INTS 
tue es 
iNTS 
INTS6 
LIEY ge 


TNTEM 


TNT SR 
INTIS 
INTRA 
LN TRE 
INT 
IPCEC 


IPocT 


mo 


Or & 
wo 


t+ tt 


Cs 


tea bet bet RA oes 
101A M Aw 


ZOUNME 


as 


O4511 
09216 
00350 
g1971 
$0225 
O1000 
01231 
01367 
GiSi3 
02513 
04220 
90227 
04549 
U42235 
04265 
04432 
00244 
00216 
90337 


p2501 


60903 
65004 
90095 
$3906 
po3s3 
84454 
00355 
00341 
00337 
goc4e2 
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APPENDIX A 


SAMPLE DRIVER PROGRAM 


TC-120 MAGNETIC TAPE DRIVERS 


The Western Peripherals Nova Magnetic Tape Unit Drivers allow the 
user to perform read, write, space, write end of file and rewind 
functions. The individual drivers are described on the following 
pages. Error conditions and calling sequences are explained in 
each subroutine writeup. The status and command registers are 


described in Appendix B. 


The present source program begins at location 1200 with a '"'.LOC 
1200"' statement. If the user wants to relocate the drivers, he 
must replace the ''.LOC 1200" statement with the desired starting 
address and re-assemble the program. The starting address of 
each subroutine is given in page zero of memory locations 160 - 
170. Each subroutine may be called by linking indirect through 
the branch vectors, i.e. (JSR GREAD where READ=161), the user 
has the option of using the NOVA mag tape drivers with or with- 
out interrupts. If interrupts are desired, the drivers are 


initialized by calling MTINT. 


No registers are saved by the driver subroutines. 


The proper procedure in using the tape drivers is as follows: 


Ly) Tf AMterraupt control 1s .déesivced, 2 .JSk. to: TENT to initzal- 


ize the drivers followed by INTEN to enable the interrupts. 


1) (Continued) 
it is the users responsibility to handle interrupts and 
to call the mag tape interrupt handler when the interrupt 


is caused by the mag tape device 22, 


A JSR @MTHND will execute the mag tape handler. A sample 


of interrupt service routine is given in Appendix A. 


2) Prior to any driver calls, a JSR to UNIT should be made 
to initialize and select the unit and parity, select 9 
track or 7 track. If a different mag tape unit is to 


addressed, another call to UNIT can be made. 


3) A call to any driver will cause the selected function to be 
initiated; control is then returned to the user. Then vrior 
to further calls to the drivers, the user should do a JSR 
to CMPLTE, CMPLTE will wait until the tape system is not 


busy and advise the user of error or end of file conditions. 


UNIT (Unit Select Subroutine) 


The Unit subroutine is called to select unit number, formatter, 
parity, density, edit mode, threshold control and specified 7 
or 9 track unit. UNIT must be called before executing any of 
the driver subroutines and when changing control from one unit 


to another. 


UNIT (Unit Select Subroutine) (Continued) 


Calling sequence: 


JSR @ UNIT (UNIT=160) 

WORD 1 Selects unit, parity etc. 

WORD 2 Select unit type 100=7 track 
O=9 track 


WORD 1 


} ! 
i 


ih <r nmi aan SA raise aid ek peace cra a Sa a ae nc nas, 


O. i. oe Bs MG SG eS. 
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— ea ee 
THRESHOLD | p ob ob CPARETY 7 UNIT 
CONTROL eG | 
EDIT : PACK FORMATTER 


MODE CONTROL 


DENS ITY 


READ (Read Subroutine) 


The Read Subroutine starts the mag tape to read a record into 
memory. Arguments given the subroutine are buffer core address, 
number of words to read from a mag tape record and an error 


return. 


READ (Read Subroutine) (Continued) 


Calling Sequence: 


JSR @READ (READ=161) 

WORD 1 Memory buffer address 
WORD 2 Word count (negative) 
WORD 3 Error return (JMP ERROR) 


Return from subroutine. 

At this point the user may continue 
his program until such time that he 
requires the data transfer to be 
complete; he then must perform a 
NISR” 66 “the “CMPLTE subsoutine 
wnich will returm to him when the 
tape function is complete (including 


error retries). 


The error return address is utilized when the control unit or 
tape unit is not ready. ACO equals the status read from the 


tape controller. 


WRITE (Write Subroutine) 


The Write Subroutine starts the mag tape to write a record 
onto mag tape. Arguments given the subroutine are buffer core 


address, number of words in the record to write and an error 


See 


WRITE (Write Subroutine) (Continued) 


return address. 


Calling sequence: 


JSR GWRITE 
WORD lL 
WORD 2 


WORD 3 


(WRITE=162) 
Memory buffer address 
Word count (negative) 


Error return (JMP ERROR) 


Return from subroutine. 

At this point the user may continue his 
program until such time that he requires 
the data transfer to be complete; he then 
must perform a "JSR" to the "CMPLTE" sub- 
routine which will return to him when the 
tape function is complete (including error 


retries). 


The error return address is utilized when the control unit is 


off-line or the write ring is not in. ACO equals status read 


from the tape controller on error returns. 


WEOF (Write End of File Subroutine) 


The WEOF subroutine writes an end of file mark. EOF status is 


indicated when an EOF is written, thus the EOF return address 


ae 


WEOF (Write End of File Subroutine) (Continued) 


is utilized when the user performs a "JSR" to "CMPLTE" following 


a "ISR to: “WEOR," 


Calling sequence: 
JSR GWEOF (WEOF=163) 
. WORD (Error returm address) 


Return from subroutine 


The error returm address is utilized when the tape control unit 


or tape unit is not ready or there is no write ring. 
SPACE (Space Forward/Backward Subroutine) 


The SPACE subroutine performs space forward and space backward 
functions. It does not perform retries in the event of error. 
Spacing functions are terminated when an End of Tape, End of 
File or Load Point is encountered. The user may examine the 
contents of the address counter (DIB -,MIA) to determine the 
mumber of records actually spaces. The register is initially 
loaded with the negative (two's complement) value of the numper 


of records to be spaced. 


SPACE (Space Forward/Backward Subroutines) (Continued) 


Calling Sequence: 


JSR @ SPACE (SPACE=164) 

. WORD Space count, positive forward, negative 
reverse. 

. WORD Error return address 


Return from subroutine 


The error return address is utilized when the tape control unit 
or tape unit is not ready or is positioned at load point for a 


reverse operation. 
REWIND (Rewind Subroutine) 


The REWIND subroutine performs a rewind function. 
The CMPLTE subroutine should not be called following a "JSR" 
to 'REWIND,'' Rewind waits until tape has been rewound before 


returning. 


Calling Sequence: 
JSR @GREWIND (REWIND=165) 


Return from subroutine. 


CMPLTE (Complete Subroutine) 


The CMPLTE subroutine performs two functions: 


CMPLTE (Complete Subroutine) (Continued) 


1) It waits until the prior read, write, space or write 
end of file function is completed. 
2) It indicates (in a generalized fashion) the status 


Of that function. 


Calling Sequence: 


JSR @CMPLTE (CMPLTE=166) 
. WORD Error return address 
»WORD End of file return address 


REGUIM, NO error Or EOF 


The error return address is utilized if the prior command was 
1) A space forward or backward and an End of Tape, Load point 
or parity was encountered (without an end of file). 
2) A read (without EOF) or a write. 
(a) A data date, illegal, end of tape, bad tape or 
odd character. 


(b) An unclearable (8 tries) parity cr bad tape error. 


The =nd-of-File return address is utilized if the prior command 
resulted in the EOF status being set. This return takes prece- 
dence over any other conditions hence the user should check for 


EOT after the EOF return is made. 


MTHND (Mag Tape Interrupt Handler) 


This subroutine is called by the interrupt service routine if 
inberrupts are utilized. Ii no. interrupts are weed, it is 


called by the complete (CMPLTE) subroutine. 


The handler reads the status of the last tape operation just 
completed and clears the done flag. Jf the error flag is not 
set (bit 0 of status) it zeros error flag (EFG) and busy flag 
(BSY) and returns. If the error is caused by End-of-File only 
the status word is stored in error flag (EFG) and busy is 
zeroed. If the error was caused by parity or bad tape only 

and the original command was a read or write, seven retries are 
attempted to recover from the error condition before the final 
error condition is indicated. In the case of a write command 
2.5 inches of tape are erased before retrying the write command. 
Retries are not attempted on write end-of-file or space commands 


or for errors other than parity or bad tape. 


Calling sequence: 


JSR @MTHND (MTHND=170) call made from service routine. 
Return 
JSR MTHD1 Call made from complete (CMPLTE) 


MIINT (Mag Tape Interrupts) 


To initialize the drivers ro use interrupts, a call is made 

to M©INT, This subroutine no-op's the call (JSR MTHDL) by 

the complete (CMPLTE) subroutine to the mag tape handlers. 

The mag tape handler is entered by the interrupt service routine 
instead. A sample of an interrupt service routine is given in 
Appendix A. 


» 


Calling Sequence: 


JSR (@MTINT (MI INT=167) 
INTEN Return, interrupts can be enabled at this 
time. 


2106 


INTERRUPT SERVICE ROUTINE 


APPENDIX A 


MTHND=170 

000001 .LOC 1 
00001 002110 INTSER 

002000 .LOC 2110 
02110 040423 INTSER: STA 0,RO “SAVE ACO-AC3, CARRY 
O2111 044423 STA 1, RI 
02112 050423 STA 2, R2 
02113 054423 STA 3, R3 
02114 101200 MOVR 0,0 
02115 040415 STA 0, CR 
02116 061477 INTA 0 » ACKNOWLEDGE 
02117 024420 LAD 1,¢22 -MIA = DEVICE 22 
02120 106405 SUB 0,1,SNR >SKIP IF NOT MTA 
02121 006170 JSR G@MTHND “MAG TAPE HANDLER 
02122 020410 LDA 0,CR 
02123 101100 MOVL 0,0 ;RESTORE CARRY, ACO-3 
62124 034412 LDA 3,R3 
02125 030410 LDA 2,R2 
02126 024406 UDA URL 
02127 020404 LDA 0,RO 
02130 060177 INTEN s ENABLE 
02131 002000 IMP @O 
02132 000000 CR: 0 
02133 000000 RO: 0 
02134 000000 RL: 0 
02135 000000 R?2: 0 
02136 000000 R3: 0 
02137 000022 C22: 22 
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Q@165 
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QG167 
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ZHLCRS 
O@1265 
BR TOL 
OA124) 
a oa Bak 
CU1LE6S 
GO146) 
GCSE 
CO1347 


BG1eE LA 
PPLALA 
GHASS36 
PETAY 
ANACAE ] 
BOLAPP 


Western Peripner 


nO oe 
m 
o 

ra ed 


TA CALLING SECUENCF 
SINT TIALIZE 
T 


t DRINER FOR ANT es RRP TS 
S3ENARLE INTER 


ERRUPTS 


SUNIT SELECT 
sX=PARITYC@=ODD IL=EVEN) YSUNIT# 
32=100 FOR 7 TRACKs £20 FOR OTK 


sREAD MAGTAPF RECORD 

3 ADDRESS 

s3VORD COUNT (NEC) 

SERROR RETURN COFF LINE) 
3 RETURN 


3WRITE MAGTAPE RECORD 
3 ADDRES 

3VvORD COUNT ¢CNEG) 
SERROR: PETUPNCU ELITE 
3s RETURN 


BOCK OR: Oi Tabi) 


eRe RD COR File 
S ERROR: CVI Te OGK 
3 RETURN 


OR UNIT NOT .READY) 


> OFeCE BECORDS 

SRECORD COUNT CANES. POR REVERSED 
S3CLARGE COUNT &ILL SPACE & FILED 
SERROK RETURN £TLLEGAL) 

3 RETURN 

SREVIND TAPE UNTT 

S3COMPLETE PREVIOUS COMMAND 
sERROR RETUPN 

EOP eet UPN 

3 RETURN 


ATUS: ON’ ALL EREOR RETURNS 


3 NOVA MAGNETIC 
3 
3 JSR MTINT 
3 INTEN 
3 
3 JSR UNIT 
“xX OY 
3 z 
3 
3 JSR READ 
3 e°0 @ 
3 
3 JSR WRITE 
3 eee 
3 
3 JISERSREOP 
3 
3 JSR SPACE 
3 JSR REWIND 
3 JSR CMPETE 
3 eae 
3 NOTE: ACM = ST 
oLUG 169 
UNI T 
READ 
WRITE 
WEOF 
SPACE 
REWIND 
CM PLATE 
MTINT 
MTHND 
3 OK K KOK KOK K KOK KK 
3 UN T T * 
SRKK KEK KR EK KKK 
PLOe 12 FA 
UNIT: LNA @35 F753 
STA @s PRUN 
LDA Qs 153 
BAA Os TRESS 
IMP P33 


3GET PARITY 


AND UNTT #4 


S SAVE LT 

S6E 1. 7 OR Oo TRACK. CODE. 
3SAVE TT, 10C=7, O=9TK 
3 RETURN 


O12 09 


@1206 
Orea7 
H1216 
G11) 
O1e le 
Dhak 


GIAi4 
@1215 
@1216 
OA1e17 
H1ee¢ 
Clee 
OH1lece 
he eerees: 
O12e4 
O1e25 
O1226 
O1e27 
61239 
C131 
OLe3e 
Q1233 
81234 
Yless 
Bi 236 
VIleay 
A124¢ 


O1241 
G1242 
81243 
A1L244 
Q81245 
B1eC46 
B1247 
81250 
@1251 
O1e52 
Ole og 
CLES4 
le Pagers: 
C1256 
Gn poke | 
“1°64 
CLe61 
O1P62 
O1L263 
OH1E64 


924532 


O65222 
CV6GAPE 
GP3F533 
1134644 
PALACE 
9OFG413 


Ceaae 
FPS 13 
Perce? 
QDO5PP2 
M6422 
Posie 3 
CEL4aAne 
IS12EB 
Rote eS 
Gite pai? 
H4aA45 12 
BES4EG 
M445 14 
CHhENLS 
“W25465 

AAAS COT 
AHOCATT 
GC40477 
SLA] 
ow Ge Wee, 
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CE4476 
P3442 | 
147460 
O30426 
L147 CaS 
VSTSES 
L47G088 
C6522? 
CENAC2 
ELIS 
OALAGO 
15 1°80 
15 122 
CELTACE 
CP1E 4545 
M6512? 
AAALAST 
PELTAG I 
COCAET 
COCCI 
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DIA 6sttTAé 
LDA 2sC53442 
AND €s 2» SER 
IMP ee 3 
JEP EAC 


SKK RRR RK KKK K 
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SRR KK KK KOK KOK 
{ 


ol ies LDA 1s PRUN 
LDA 5C5®@ 
FDD 5 1 
DOAC 154TA 
DIA €5MTA 
MOVR 5 2x SNC 
GV 22953 


MOVER 2x2 
MOVER. Cae 526 


JP? 2S 3 

BAGS STA 15CMD 
LDA” Lets-3 
STA 15 ADR 
DOR 1,MTA 
LDA 15153 
STA 15DC 
LDA 5M10 
STA Os RTY 
Loe Sy 
DOCS 15M4TA 
JMP 353 

SKK RK kk 

3 EOP x 


3 AR ORK ok OK OK OR ROK 


LEOF: LDA ls PRUN 
LDA 2@sC7 
AND 25 1 
LDA @sTRAK 
ADD 25 1 
LDA @5,C6@ 
ADD 25) 
DOAC 135MTA 
DIA 6SMTA 
MOVR 325 SNC 
MP! es.3 
MOV Rs 9-2 
MOVR @s25 SAC 
wee MS 
Sz BOY 
DOFS 1sMTA 
STA 1s5CHD 
IMP 153 
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bee bes 
OEEC412 
COR4GO4 
LET CEB 
O65222 
H6042°2 
AL4A4A3B4 
LE 7TADNS4 
AMATAA 
CALALS 
“OE4E6 


LATOEH 
PAALAP |} 
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‘Onmar-Bie, 
WOC4PD 
OTS 122 
EM1L4ACe 


ERREIA 
COGAN 
BPARAL 
GPEESe 
neRnEN 
CEOOTA 
L27TTO 
COCEHA 
REOBRO 
AneHen 
NOR EGH 
COCA 
AAAACE 
CEPArE 
OSB442 


3 OKRA ROK KOK 
3 REWIND * 


we 


we 


REWIND? 


=< 
=) 


omy 
io : 
a 


e 


iQ ve Nee Wwe we 


Pee: 


« Wwe 


we 


Q 


NO 
So 
¢ 08 88 8 


SS-@)- CVO} GP CIE) wee 


See 


[Nap ee AO LN 
< a, 


yb YW 
~< 


WO 
=e 
= 


es ie 


MAG 


A KK ok kok 


LDA 1s PRUN 
LDA &sC1@ 
ADD As ] 
DOAS 15MTA 
LDA I12Y2O 
DITA sl4TA 
END @s ls SER 
OME ee 
JA ed 


[p) 10 
ae Sonal e 


KEK KK KKK KE 
SPACE * 
KCK RK kkk OK: 


LDA 23 @53 


LDA ts PRUN 
MOVL# 2s2> SNC 
oo ed 

LDA @©3;C49f 
FADD fs 1 

DOAC 1sMTA 
DIA fisMTA 
LDA 15C5344?2 
AND @5 15 SZR 
ti hast 

STA 15 CiMD 
Je Se 

SD rae. 
NEG se 

LDA €5C30 
ADD ss 

STA 1s CMI 
DOAC 15MTA 
Lee. Bar 

STA 2s DC 
DOCS e@sMTA 
JM 233 

TAP COMMANDS 
Le URE EAD 
3H SSPPECE FOr 
AQ $S5PACE FE 
S9@ 3WRITE 
6@  3FOF 

Pe! SERESE 

= 0 

a“ 

9) 

Cc; 

a 

A 

iG) 

G 

IG4AP 


~y 


3 CET 
3 GET 
> ADD 


PARITYs 
PELIND 
com 


SEND 


UNIT 4 
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SAVE 
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: SAVE 
3 SEND 
cee tel 
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LOOP BACK 
SK PD 


JMP 
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be 
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SUPPLEMENT TO TC-120 


SOFTWARE MANUAL 


A 33 word buffer register provides buffering of data 
between tape and data channel. Therefore, the channel 
has almost 34 character-times in which to respond to 


requests by the Controller. 


TO RUN THE TAPE 


To run the tape, the program must select a tape transport 
and a command. Most of the commands also require specific- 
ation of parity, an initial address to the 15-bit address 
counter for data channel access, and the negative of a 


word count in two's-complement form. 
I/O TRANSFER INSTRUCTIONS 


Five [OT instructions are used. Busy and Done are sensed 
or controlled by bits 8 and 9 in all I/O instructions with 
Device Code 22, mnemonic MTA. Interrupt Disable is con- 
trolled by interrupt priority mask bit 10. A second tape 


system connected to the bus would have Device Code 62. 


DOA-, MIA (DATA OUT A, MAGNETIC TAPE) 


=O 7 = 


Bits 


Bits 


10-15 


AC ! O i | o | F | 
a se ee atin ce san Dele Be tc shaiarnt eg bw 0's Dain ntttbraittdinn, B - ee 


gg ten tastacneiets 


ss ac 


+{ of 


4 5 6 7 8 S, EO; Ji 22° 23 


-- "O'" specifies operation is neither arithmetic nor logical. 
~- Indicate that this is an "in-out" instruction. 
-- Address one of four computer accumulator/index registers. 


-- Indicate direction of transfer, select one of three 
registers (in this case, the tape command register). 


~- Specify action to be performed, such as, clear "Busy" 
and "Done." 


-~- Device code. 


*Transfer takes place between the accumulator addressed by Bits 3 and 4 
and the device that is selected by Bits 10-15. 


FIGURE 4-1. INSTRUCTION FORMAT, 'IN-OUT' OPERATION* 


Hic 


DEN- PACK 
SITY CON- 


MODE |SE- TROL 
LEC 


Bit O -~- Selects Long Window 
Bit 7 -- "O" Selects NRZ "1" Selects PE 
Bit 8 -- "0" Selects 8, 8 or 6, 6 Packing "1" Selects 4, 6, 6, 
Packing 
Bit 9 -- "0" Selects Odd, "1" Selects even parity 
Bits 10-12 -- Select the command as follows: 
O = Read 4 = Space Reverse 
1 = Rewind 5 = Write 
2 = 6 = Write End-of-File 
3 = Space Forward 7 = Erase 
Bits 13-14-15 -- Selects one of the eight tape units. 


Aq patzytoeds uotjouny 3yQ} wazojyized pue umoys se Aaqst3er 


pueumos odeq ay OUT CI-6 S4T@ DY JO SsqUeqUOD sy peOT 


Dig 2 oe DOB-, MIA (DATA OUT B, MAGNETIC TAPE) 


leet 1 | 1 AC | e) | 1 | 0 | F Serer 0 | 1 & J 


4 
0 1 Z 3.4 i) 6 7 3. +9 10 11 12 13 14 15 


Load the contents of AC Bits 1-15 into the address 
counter (AC Bit O should be 0), and perform the 
function specified by F. 

NOTE 


Tf this instruction is given with a "1" in AC 
bit 0, and if the Controller then executes a 
Read Command in which the word counter dces not 
overflow, the Controller reads the CRC in nine- 
track and the LPCC in seven-track at the end of 
the record and sends it to the next memory 
location specified by the address counter. This 
is primarily for maintenance, for the program 

to check whether the CRC or LPCC is being gener- 
ated properly. 


MAGNETIC TAPE) 


te |itefolil s | 
1: 3a. 3@ 46. 


6) ei 2 3 4 5 6 7 8 9 15 
Load the contents of AC Bits 4-15 into the word 


counter and perform the function specified by F. 
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4.2.4  DIA-, MIA (DATA IN A, MAGNETIC TAPE) 


Read the status of the tape system into AC as shown, and perform the 


function specified by F. 


STATUS WORD FORMAT 


PAR- |END IEND [LOAD [SEE LDENT.| CORRECT- 


Le OF OF STATUS} ED WRITE] CHAR/ | UNIT 
ERROR] TAPE | FILE PARITY {LOCK oy READY 
6 7 8 | 10 iL LZ 13 14 15 


TABLE 4-1 


STATUS TABLE 


Bit 4 -- Density Bit 9 -- 9-Track 
7-Track Low Density 0 0 
7-Track High Density Ay 0 
9-Track P.E. Ll L 


9-Track NRZ L 1. 


START (FO1) clears Error, Data Late, Parity Error, 
End-of-File, and Bad Tape, CLEAR (F10) does the 
same, pius Illegal. The remaining flags are supplied 
by the addressed transport (which is automatically 


Unit 0 after CLEAR is given). 


TABLE 4-2 


STATUS DESCRIPTION 


INDICATES THAT: 

Bae, aes: Be. 34 (Oy ° 7, Oy, LO, “or-14 4.8)" One.” 
Servicing of data channel is not fast enough. 
The addressed transport is now rewinding. 


The program gives START in any of the following: 


ro 


a. The command is Write, Erase, or Write~End- 
of-File, and Write Lock is ''One." 

b. The command is Space Reverse and Load 
Point (Bit 8) is "One." 


c. Busy is zero, but Unit Ready (Bit 15) 


16 egbéo: sere. 


The setting of Illegal prevents the Tape Controller from 
going into operation and sets Done, requesting an inter- 


rupt if interrupt Disable is clear. The program must 


tee 


Ne) 


TABLE 4-2. STATUS DESCRIPTION (Continued) 


give Clear before proceeding (Start does not clear 


Illegal). 


The addressed transport is set to High Density (0 


indicates Low Density). 


In Read or Write, the Controller meets a data character 
the lateral parity of which differs from that specified 
with the command, or has discovered a track with odd 
parity in a CRC or LRCC does not set this bit, but 
specifying the wrong parity when reading a file mark 


does, 


The addressed tape is beyond the EOT marker. (Reverse 


motion clears this bit.) 


The Controller has written a file. mark or has encountered 


one in reading or spacing. If there is an error in a file 


mark, it is not recognized as such; i.e., the Controller 


interprets it as a very short data record. 


The addressed tape is at Load Point. 


The addressed transport handles 9-track tape ("'0" 


indicates 7-track).- 


a2 5s 


TABLE 4-2. STATUS DESCRIPTION (Continued 


A One 
In Bit 
10 The Controller has encountered either data in a record 
gap or a false end-of-record (two or more contiguous 
blank characters). Spacing reverse over an unrecognized 
file mark also sets Bad Tapa. 
il Identification status for phase-encoded tapes if tape 
is written in phase-enccded format. This status is 
true when first record is read off of Load Point 
se Corrected parity error indicates single dead track error. 
Sets parity error (bits) if Write operation. Does not set 
parity error if Read operation. 
13 The Write-Enable ring is not on the supply reel of 
the addressed transport. 
14 An odd number of characters were detected while 
Reading or Writing. 
LS The addressed transport is ready for operation by the 


program. This can be an early ready for on-the-fly 
cperation if this option is selected on the computer 


adapter board (see Paragraph 2.5). 


woes 


4.2.5 


DIB-, MTA (DATA IN B, MAGNETIC TAPE) 


a 
4 
hy 
ee) 


6 / | 8 9 10 


Read the present contents of the address counter into 
AC bits 1-15, and perform the function specified by F. 


Clear AC Bit O. 


TAPE COMMANDS 


To perform any operation, the program must select the tape 
unit while giving a command. All commands are initiated 
by giving Start (F01). The two Rewind commands do not act- 
ually place the Controller in operation, but for all other 
commands, Start clears Done and sets Busy, and at the 
termination of the command the Controller clears Busy and 
sets Done, requesting an interrupt if Interrupt Disable is 


clear. 


The flow charts that follow this section show the actual 
procedures for programming the tape commands properly. 
The timing in ali cases is dependent upon the transport 


speed, tape handling characteristics, and density. 


BOF 


4.3.1 


WRITE (SEE FIGURE 4-2) 


The program must specify parity, a (negative) word count, 
and an initial address. If Write Lock is 1, Start sets 
Illegal and Done, and the Controller does not go into 
operation. Otherwise, the Controller makes an immediate 
data request for the first word, and it writes the words 
it receives via the data cnannel from the locations 
specified by the address counter until either the word 


counter overflows or Data Late sets, at which time the 


Controller terminates the record and sets Done. 
WRITE END OF FILE (SEE FIGURE 4-3) 


1 


The program must specify even parity for a 7-track tape 


18) 


}-4 


odd parity for a 9-track tape, or the Controller wii 
not write a file mark properly. Lf Write Lock is 1, 
Start sets [ilegal and Done, and the Controller does not 
go into operation. Otherwise, the Controller erases 2-% 
inches of tape (i.e., it extends the present record gap to 


three inches, writes a file mark, and then sets Done). 


ERASE 


If Write Lock is 1, Start sets Illegal and Done, and the 


Controller does not go into operation. Otherwise, the 


mao) 


4.3.3 


ERASE (Continued) 


Controller erases 2-4 inches of tape and then sets Done. 


This command is used primarily to skip sections of tape 
on which the program has found it impossible to write 
data correctly; i.e., with parity errors or a bad tape 


indication, 


READ (SEE FIGURE 4-4) 


The program must specify parity, a (negative) word count, 
and an initial address. The Controller reads a single 
record from tape, and sends the data via the data channel 
to the locations specified by the address counter until 
it encounters the EOR gap or the word counter overflows, 

° ? ’ : ° e 
whichever occurs first. Givin 


a large word count (e.g 


lon 
Oo *o* 


giving zero) ensures that the entire record will be read even 
if its length is unknown. If the record contains an odd 
number of data characters, the final one is sent to memory 

in a separate word right justified. The setting of Data 

Late during the record indicates that information has 

been lost, but data transfers continue until overflow or 

the record ends. After complating the record, the Controller 


sets Done. 


290. 


4.3.4 


4.3.5 


4.3.6 


READ (Continued) 


If the record read is a file mark, its single "data" 
character is sent to memory via the data channel. The 
length of a record of unknown size can be determined 
after it is read by giving a DIB to check the contents 
of the address counter, which will be one greater than 
the address to which the last word in the record was 
sent (provided, of course, that the word count was 


large enough). 
SPACE FORWARD (SEE FIGURE 4-5) 


The program should give a (negative) word count equal 

to the number of records to be spaced. The Controller 
spaces forward over the given number of records unless 

it encounters a file mark or the end of tape, in which 
case it stops at the mark or at the end of the record in 
which the ECT marker is encountered. To space a file, the 


program can simply give a zero word count. 
SPACE REVERSE (SEE FIGURE 4-5) 


The program should give a (negative) word count equal 
to the number of records to be spaced. [Tf Load Point 


is 1, Start sets Illegal and Done, and the Controller 


3S 


4,3.6 SPACE REVERSE (Continued) 


does not go into operation. Otherwise, the Controller 
spaces reverse over the given number of records, but it 
stops the tape automatically upon encountering a file 
mark or the Load Point. To space a file, the program 


can simply give a zero word count. 


in 
Ww 
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REWIND (SEE FIGURE 4-7) 


Start does not affect the Controller, but simply initiates 
the rewind “in. the addressed transport and the Controller 
is free for further use by the program. The addressed 
transport rewinds the tape at high speed onto the supply 


reel and stops at Load Point. 
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Figure 4-2. ‘WRITE! Flow Chart 
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Figure 4-3, “WRITE END OF FILE" Flow Chart 
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Flgure 4-5, "SPACE FORWARD/REVERSE' Flow Chart 
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‘Figure 4-6, "SPACE FILE FORWARD/REVERSE" Flow Chart 
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SEND SPACE | 

COMMAND 

UNIT & START| : 
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Figure 4-7, "REWIND"! Flow Chart 
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DIRECTORY AND LOADING PROCEDURE 
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SCALE SIZE | DRAWING NO. | 
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LTR | __ DESCRIPTION | AppRovED | 
l MASTER DIAGNOSTIC TAPE CARTRIDGE 
Record Program 
aL TCL60 DIAGNOSTIC 
2 T6150 RELIABIULTY 
3 TCL7O DIAGNOSTIC 
4 TCL) BERLABL EET Y 
5 TC180 DIAGNOSTIC 
6 TC180 RELIABILITY 
2. DEC BOOTSTRAP LOADER 
BOC LnSst 
37000 pe ee MOV 
2 10000 POWER CLEAR 
4 ae CMD REG 
6 U2 Sd MOV 
10 160000 (4K) 
| i2 172524 BYTE CNT REG 
4 WZ937 MOV. 2.2 
16 Ss READ 
20 Lie one CMD REG 
22 S237 Bit “aoc 
24 23 POR GR B2 
20 172520 IN STATUS REG 
30 L774 BRANCH IF NOT READY 
32 2) HALT 
ce DATA GENERAL BCOTSTRAP LOADING PROCEDURE 
Clear Accumulators to 0. Lead first test by starting Reac 
routine. Load succeeding tests bv pressing Continue. 


NOVA Read Routine - Load in top 3 locations of memory. 
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LOC.1 
DOB Zz 
DOAS 0 
SKPON 
JMP-1 
DIA 3 
BRALT 

eMP = / 


aoa 
6600096383 


| BO NOT SCALE DRAWING 


| SHEET 2 
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REVISIONS 
DESCRIPTION 


APPROVED 


NOVA Read Routine (Cont'd) 


Accumulator No. Commands 
COMMAND 0 0 = Read 
WD CNT ac 1 = Rewind 
STRT ADDR (DIRECT) 2 2 = Not Used 
STATUS 3 3 = Space Forward 
4 = Space Reverse 
5 = Write 
6 = WEOF 
7 = Erase 


4. EMOVE THE PROGRAM TAPE FROM THE DRIVE AND INSERT A SCRATCH 


Ned 


TAPE 
| 8. REFER TO THE APPROPRIATE DIAGNOSTIC MANUAL FOR REQUIRED PATCHES 
| AND FOR OPERATING INSTRUCTIONS. 


Cae o. DRAWING MO. a 
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NOTES 


NOVA WRITE-READ/BOOTSTRAP ROUTINE 


(Use for program load or troubleshooting) 


LOCATION CONTENTS INSTRUCTIONS 
17770 67022 DOC WD CNTR 
17771 72022 DOB ADDR REG 
e772 61122 DOAS CMD REG 
17773 63622 SKP DN 
L774 cnet IMP - 1 
17775 74422 STATUS TO AC3 
17776 63077 HLT 
LPT TH IMP - 7 


(ZERO THE ACCUMULATORS FOR PROGRAM BOOT) 


¢ 


AC : 50 WRITE CMD 
| GLP99 READ CMD 
acl L777 76 WORD COUNT (2'S COMP) 
AC2 17700 DATA BUFF ADDR 
ACB em STATUS 
17700 (Variable) DATA BUFF 
TO 
17710 


re rn a ee I ANE ES A OA RN oh 


Press CONTINUE for each record on. tape 


NOTES 


SOFTWARE PATCHES 


FOR COMPUTERS WITHOUT PANEL SWITCH REGISTER 


DIAGNOSTIC PATCHES 


LOCATION WAS SHOULD BE 
SLYS 74477 34303 (LDA, 3) 
303 (not used) Parameters* 


*Set parameters as shown in diagnostic 
operating instructions. Example: 1320 
For 9 prack; NRZE> UATE. Oy, Device Code 


22; 1720 changes mode to PE. 


Changes mode from NRZI to PE 


LOCATION WAS SHOULD BE 


2041 60477 20241 


(read SW) (LDA, 8 PKFLG (=100 


LOAD PROGRAM FOR NOVA BOOTSTRAP LOADER PAPER TAPE (24K CPU) 


ae Eey| 126440 
60 65612 
61 /7/ 
62 60512 
65 127100 
64 127100 
65 107003 
66 Lid 
0/ 1400 
/0 60112 
/] 4706 
/2 YANO? 
fo 4764 


Put Nova Binary loader in Reader. 
Start at location 57770 
Put TC-129/170 Diagnostic Paper Tape in Reader. 


Start eat ideation 57.777 wita: switen "a" on. 


Or om GQ) NF 


Set Console Switches to desired starting address (400). 


NOVA WRITE ROUTINE 


(Variable Delay/Reset) 


Location Contents Instructions 
LET TG 67022 DOC WD CNTR 
ET Te T2022 DOB ADDR CNTR 
ERE 61122 DOAS CMD REG 
LETS 54377 ST. AC3 @ 377 
17774 EOS 07 ING 277 SG 
LATHES did JMP - 1 
ETT © 6267 i LAO RST 
LTS he rae LOOP 
ACC 000050 CMD 
ACL oar at ae ge WD CNT 
AC2 rare a 8 DATA BUFF ADDR 
AC3 (Variable) DELAY CONSTANT 
LI LOO (Variable) DATA BUFF 

mo 


ere Ap rena 
eee ae 


aie 
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NOVA WRITE ROUTINE 


(With Variable Delay) 


Location Contents Instructions 
td FO 67022 DOC WD CNTR 
ee aks a2? DOB ADDR CNTR 
BY aa Ae i? 61122 | DOAS CMD REG 
Ly tis 63622 SKPDN 

17774 777 OMe ek 

HB Se a 5. 54377 ole wACo ote 
LITT LO377 ING 377 SRE 
Lede Tk JMP - 1 

LETAO ED LOOP 
ACO 000050 CMD 
ACL Lr? L700 WD CNT 
AC2 17700 DATA BUFF ADDR 
AC3 (Variable) DELAY CONSTANT 
7 7 O0 (Variable) DATA BUFF 

she: 


NOTES 


RELIABILITY PROGRAM 


DEVICE CODE. = This program normally overates with device 
code 22. If you must cperate the program with device code 
62, modify the 58 locations identified "MTA" listed on page 


63% 


CHANGE DESCRIPTION 


NOLES 


DIAGNOSTIC PATCHES 


Enter the following changes when running the TC-120 Diagnostics 
(Paper Tape, Diagnostic, PN 120009) 
(Paper Tape, Reliability, PN 120010) 


FUNC TIONAL DIAGNOSTIC 


memsc N tea Re 


Location 


3278 
RELIABILITY PROGRAM 


Location 


Was 


101010 
101010 


2 

177220 
420 or 406 

401 


Should Be_ 


401 
401 


Description 


Timer, Real Time Clock 
TTY Speed 
Mapped Processor 


TTY Speed 


Descriction 


Error Trap (Nova 3) 


Error Tran (Nova 3) 


Ce eet 


PRODUCT 
western parioherals INFORMATION BULLETIN 


Lene 
T 1000 Diagnostic Compatibility 12905 
fa A A RR ee NH SE NN NN i ny RE | ne emcee am 
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